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ABSTRACT 

TEMPOA  is  a  computer  interactive  version  of  the  orignial 
General  Electric  TEMPO  game,  and  is  written  for  the  Apple  III 
microcomputer.   A  minimum  of  two  players  vie  for  a  strategic 
'win'  through  judicious  budgetary  planning  in  the  development 
and  procurement  of  realistic  weapon  systems.   All  decisions 
are  subject  to  the  constraints  of  limited  budgets,  hardware 
inventories,  research  and  development  time  lags  and  the  uncer- 
tainties of  war  and  inflation.   A  third  party,  assuming  the 
role  of  game  umpire,  selects  all  simulation  parameters  and 
oversees  the  play  of  the  game. 
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I.   INTRODUCTION 

The  simulation  exercise  TEMPO  is  an  example  of  the  histor- 
ical interest  shown  towards  wargaming  by  the  U.S.  military. 
The  TEMPO  military  planning  game  was  conceived  and  designed 
by  the  Technical  Military  Planning  Organization  (TEMPO)  of 
General  Electric  Company  of  Santa  Barbara,  California,  in  the 
early  sixties  as  a  strategic  budget  planning  wargame. 

While  originally  a  manually  played  simulation,  TEMPO  was 
designed  to  pit  the  budgetary  planning  and  decision  making 
skills  of  opposing  teams  against  one  another,  victory  being 
achieved  when  one  team  had  gained  a  clear  superiority  of 
capabilities  at  game  end.   Both  the  measures  of  superiority 
and  the  goal  of  the  exercise  are  two  aspects  of  the  game 
which  have  undergone  changes  during  the  ensuing  two  decades 
since  its  original  inception. 

Receiving  wide  dissemination  in  both  civilian  and  mili- 
tary communities,  the  game  has  been  used  by  the  Defense 
Resources  Management  Course  at  the  Naval  Postgraduate  School; 
the  U.S.  Army  Management  School  at  Ft.  Beivoir,  Virginia; 
the  Air  War  College,  Air  Command  and  Staff  College,  and  Squa- 
dron Officers'  School  all  at  Maxwell  Air  Force  Base,  Alabama. 
As  recently  as  19  81  TEMPO  was  introduced  as  a  software  simu- 
lation on  the  PDP  11/70  computer  in  the  Naval  Postgraduate 
School's  Command,  Control  and  Communications  (C3)  Laboratory. 


TEMPOA,  the  subject  of  this  thesis,  is  an  adaptation  of 
a  version  of  TEMPO  to  the  Apple  III  microcomputer.   Considered 
by  many  to  be  'state-of-the-art1  at  this  date,  the  Apple  III 
with  its  12 8K  expandable  memory  lends  itself  to  large  scale 
programming  in  a  way  never  before  available  to  such  a  vast 
audience. 

As  a  software  device  for  the  Apple  III,  the  TEMPOA 
program  will  enable  users  to  simulate  the  decision  making 
process  and  resource  management  dilemmas  embodied  in  the 
weapons  development  and  procurement  processes.   While  an 
attempt  has  been  made  to  accurately  replicate  annual  budget 
overheads,  research  and  development  constraints,  time 
limitations  and  the  uncertainties  of  war  and  inflation,  the 
game  is  only  a  facsimile  and  falls  short  of  realism  on 
several  counts,  as  detailed  later.   However,  the  highlights 
of  the  original  game  and  the  major  influences  in  the 
budgeting  process  are  contained  in  TEMPOA,  and  the  adapta- 
tion is  an  enhancement  in  many  ways  over  previous  versions. 


II.   GENERAL  DESCRIPTION 

TEMPOA  requires  at  a  minimum  two  players  and  an  umpire. 
The  players  align  themselves  into  two  teams  and  alternate 
during  the  game  in  making  annual  procurement  and  investment 
decisions.   The  game  simulates  a  period  of  time  of  up  to 
twenty  years,  and  can  be  terminated  at  the  close  of  any  year. 

Player  decisions  revolve  about  the  development  and 
procurement  of  new  weapon  systems  (research  and  development) , 
the  buildup  or  scrapping  of  systems  existing  in  current 
inventories  and  the  investment  of  funds  into  intelligence 
gathering  activities.   Decisions  are  transformed  into 
expenditures,  which  in  turn  promote  a  player's  global  capa- 
bilities.  These  capabilities  are  directly  assessed  in 
terms  of  weapon  system  'utils',  a  single  measure  assigned 
each  unit  of  a  particular  system. 

Each  player  may  be  faced  with  choices  affecting  up  to 
thirty  weapon  systems  during  the  play  of  the  game.   Systems 
are  of  two  basic  sorts,  offensive  or  defensive,  and  are 
further  subdivided  into  two  categories,  weapon  system  type 
A  (strategic)  or  weapon  system  type  3  (tactical) .   A  type  3 
defensive  weapon  system  may  only  be  used  to  defend  against 
a  type  3  offensive  weapon  system.   Type  A  systems  are 
similarly  constrained. 
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At  the  conclusion  of  each  year,  after  both  players  have 
completed  and  entered  all  decisions  for  the  year,  TEMPOA 
computes  an  annual  winner  based  on  gross  offensive  weapon 
system  utility  points  accumulated  by  each  player  for  systems 
in  inventory,  discounted  by  the  appropriate  defensive  system 
utility  values  amassed  by  his  opponent.   If  a  large  discrep- 
ancy exists  between  player  standings,  then  there  exists  a 
significant  possibility  of  war,  as  computed  by  an  algorithm 
detailed  later.   A  war  translates  to  a  healthy  budget  cut 
for  the  player  with  the  lesser  net  utility  score. 

The  role  of  the  umpire  is  twofold;  to  initialize  all 
game  parameters  at  the  outset,  and  to  monitor  the  annual 
play.   A  major  enhancement  in  the  current  version  of  TEMPOA 
is  the  degree  of  control  exercised  by  the  game  umpire  in 
selecting  game  parameters.   The  term  'game  parameters' 
loosely  refers  to  individual  system  parameters  (twenty 
total)  of  up  to  thirty  game  weapon  systems,  the  expected 
values  for  annual  players'  operating  budgets,  and  the  means 
by  which  the  war  event  is  to  be  determined.   In  all  cases, 
default  values  are  available. 

All  computations,  which  in  most  previous  versions  were 
accomplished  with  tedium  and  exasperation  by  hand,  are 
carried  out  internally  by  TEMPOA.   Pertinent  results  are 
displayed  immediately  to  players  during  the  game,  and  each 
player  is  presented  annually  with  the  opportunity  for 
obtaining  a  printed  summary  of  his  current  inventory  and  his 
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budget  status  (assuming  a  compatible  printer  is  configured 
to  the  Apple  III  RS232  port  or  that  an  Apple  Silentype 
printer  is  utilized) . 

At  the  conclusion  of  any  game  year  the  umpire  may  select 
to  halt  the  present  game  for  resumption  at  a  later  time. 
Upon  resumption,  TEMPOA  begins  with  the  game  year  subsequent 
to  the  termination  of  the  original  play,  and  proceeds  using 
all  game  parameters  effective  during  the  last  active  play. 
In  this  manner,  play  may  be  periodically  postponed  to  allow 
for  in  depth  examination  of  the  game  situation,  a  more 
extensive  analysis  and  forecast  of  decision  consequences,  or 
simply  to  enable  the  simulation  of  several  decades  of 
systems  development  in  the  game  while  allowing  the  players 
to  proceed  in  their  decisions  at  a  more  leisurely  pace. 
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III.   THE  PLAY 

The  following  sections  detail  step-by-step  each  facet 
of  the  game  play.   The  software  itself  has  been  designed 
so  as  to  minimize  the  amount  of  preparatory  work  necessary 
for  the  actual  play,  and  no  prior  information  on  the  part 
of  the  players,  beyond  knowledge  of  the  gaming  objective 
itself,  is  presumed  by  TEMPOA.   While  TEMPOA  was  written  to 
be  self-explanatory  and  user  friendly,  a  familiarity  with 
this  document  will  enhance  a  player's  performance. 

A.   OBJECTIVE 


System  Points 


Under  2000 

2000-2999 

2000 

+ 

3000-3999 

2900 

+ 

4000-4999 

3700 

+ 

5000-5999 

4400 

+ 

6000-6999 

5000 

+ 

7000-7999 

5500 

+ 

8000-8999 

5900 

+ 

9000-9999 

6200 

+ 

10000-10999 

6400 

+ 

Over  11000 

Points  allotted 

Face  Value 
90%  of  amount  over  2000 
80%  of  amount  over  3000 
70%  of  amount  over  4000 
60%  of  amount  over  5000 
50%  of  amount  over  6000 
40%  of  amount  over  7000 
30%  of  amount  over  8000 
20%  of  amount  over  9000 
10%  of  amount  over  10000 

6500  (maximum) 


Figure  3.1   Utility  Point  Discount  Rate 


Each  player  begins  TEMPOA  with  the  same  collection  of 
weapon  systems.   Each  system  can  be  one  of  four  distinct 
types;  offensive  type  A  (OA) ,  defensive  type  A  (DA),  offen- 
sive type  B  COB) ,  or  defensive  type  B  (DB) .   In  addition, 
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when  the  program  initializes,  a  unique  utility  value  is 
assigned  to  units  of  each  weapon  system.   The  gross  util 
value  of  that  system  is  determined  as  the  product  of  the 
system  unit  util  value  and  the  number  of  units  of  that 
weapon  system  in  current  inventory.   This  product  is  then 
discounted  to  reflect  the  diminishing  marginal  returns 
associated  with  increasing  quantities  of  a  given  system. 
The  discount  rate  is  depicted  in  Figure  3.1.   Summing  the 
final  gross  figure  over  all  systems  of  that  type  (OA,  for 
example}  results  in  the  total  player  capability  figure  for 
that  weapon  system  type. 

If  system  type  A  is  translated  to  mean  a  'strategic' 
weapon  system,  and  type  B  a  'tactical'  system,  then  it 
follows  that  a  type  DA  system  would  only  be  used  to  counter 
the  opponent's  type  OA  weapon  system  threat.   To  carry  this 
notion  out  mathematically  and  arrive  at  a  single  net  utility 
score  for  a  player,  his  total  util  figures  for  his  offensive 
system  types  are  decremented  by  his  opponent's  corresponding 
defensive  util  figures.   When  the  defense  for  a  system  type 
exceeds  the  value  of  the  opponent's  offense  for  that  weapon 
system  collection,  then  the  net  offensive  value  of  the 
system  type  is  zero.   That  is,  no  credit  is  given  for 
exceeding  the  utility  figure  necessary  to  neutralize  an 
opponent's  offensive  capability.   Figure  3.2  is  an  example 
of  how  TEMPOA's  algorithm  is  carried  out  in  practice. 
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Annually ,  TEMPOA  determines  which  player  achieves  the 
greatest  net  utility  figure  and  declares  him  winner.   Ties 
are  called  when  opposing  net  utility  figures  are  equal. 

The  effects  of  a  player's  decisions  spill  over  from  one 
year  to  the  next,  and  the  inventories  of  a  given  year  may 
be  viewed  as  histories,  cumulative  figures  which  encapsule 
all  previous  game  decisions.   As  a  result,  the  annual  winner 
has  done  more  than  acquire  a  victory  during  that  cycle  of 
the  game  play,  and  has  achieved  a  cumulative  superiority 
over  his  opponent.   The  winner  declared  at  year  end,  then, 
is  the  collective  winner  of  the  game  to  date  as  well. 

The  players'  goal  is  to  achieve  offensive  superiority 
while  thwarting  his  opponent's  efforts  through  an  adequate 
defense.   This  goal  will  be  frustrated  by  budget  ceilings 
and  the  uncertainties  as  to  where  the  opponent  is  channeling 
his  resources . 

3.   STARTING 

The  following  subsections  deal  with  the  initial  setup  of 
TEMPOA;  program  activation,  preliminary  data  entry,  and  the 
role  of  the  umpire. 

1 .   Preliminaries 

The  TEMPOA  program  is  booted  (initialized)  by 
inserting  the  5  1/4"  floppy  'TEMPOA  DISK  1"  diskette  into 
the  Apple  Ill's  internal  disk  drive  and  turning  the  computer 
on.   The  boot  is  successful  when  the  program  logo  is  dis- 
played on  the  monitor. 
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Following  the  displayed  instructions,  players  will 
be  queried  as  to  whether  the  current  game  is  a  resumption 
of  a  previous  play,  or  whether  it  is  to  be  a  fresh  game. 
The  intent  of  this  option  is  explained  later.   In  most  cases 
the  game  will  be  a  new  play. 

V7hen  players  arrive  at  the  point  depicted  in  Figure 
3.3  they  are  asked  to  enter  their  respective  player/team 
names.   For  identification  purposes,  the  program  requires 
each  player/ team  to  use  a  distinct  title.   The  program  will 
distinguish  between  upper  and  lower  case  entries. 

Additionally,  TEMPOA  requires  of  each  player  a  code- 
word.  This  codeword  is  a  keyboard  entry  which  will  act  as 
identification  verification  annually,  prior  to  allowing 
access  to  that  portion  of  TEMPOA  reserved  for  recording 
players'  decisions  and  budget  information.   The  present 
insertion  is  the  only  instance  when  the  entered  codeword  is 
visible  (and  once  the  RETURN  key  is  depressed,  the  entered 
codeword  vanishes) .   Throughout  the  remainder  of  the  game, 
entered  codewords  do  not  show  up  on  the  monitor.   It  is 
strongly  suggested  therefore  that  chosen  codewords  be  brief, 
be  either  all  upper  case  letters  or  all  lower  case  letters, 
and  lend  themselves  to  easy  memorization.   There  is  no 
recovery  for  forgotten  codewords . 

Players  will  be  advised  to  insert  TEMPOA  DISK  2  into 
the  external  drive.   After  confirming  the  insertion  by 
pressing  RETURN,  a  delay  of  10-15  seconds  occurs  while  player 
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Player  1 


Player  2 


System 

Total 

Type 

Utils 

OA 

800 

OB 

1000 

DA 

1200 

DB 

900 

PLAYER 

1  NET  SCORE: 

Player  1  OA 

Sys 

-  Player  2  DA 

A 

=  Net  System  A 

(if  negative,  set 

System 
Type 

OA 
OB 
DA 
DB 


:o  0) 

Player  1  OB 
Sys     -  Player  2  DB 
B       -  Net  System  3 

(if  negative,  set  to  0) 

NET  VALUE  =  SYS  A  +  SYS  3=0+  200  =  200 


Total 

Utils 

1000 

900 

1000 

800 

800 

-1000 

=  -200 

(set  to 

0) 

1000 

-  800 

=   200 

Figure  3.2   Player  1  Net  Utility  Computation 


Enter  the  name  of  Player  Number  1  (Then  press  RETURN) 
Enter  a  codeword  for  Player  1  (Then  press  RETURN) : 

Enter  the  name  of  Player  Number  2  (Then  press  RETURN) 
Enter  a  codeword  for  Player  2  (Then  press  RETURN) : 


ENSURE  TEMPO  DISK  #2  IS  LOADED  INTO  DRIVE  #2 
<Press  RETURN  to  Continue  > 


Figure  3.3   Player  Data  Entry  Page 
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information  is  recorded  and  pertinent  segments  of  the  main 
program  are  loaded  into  computer  memory. 
2 .   Umpire 


*************************** 

***  UMPIRE  INSTRUCTIONS  *** 
*************************** 


*  Printer  Status  * 

Enter  the  number  corresponding  to  printer  status: 

1...RS232  UNIT  attached  and  configured  to 
receive  data 

2... APPLE  SILENTYPE  UNIT  attached 

3... Printer  either  not  connected  or  not  of 
option  type 


Figure  3.4   Printer  Selection 

The  umpire  segment  and  the  main  code  file  has  been 

successfully  retrieved  from  DISK  2  and  loaded  into  main 

memory  when  the  display  depicted  in  Figure  3.4  appears  on 

the  monitor,  unless  the  play  is  a  continuation  of  a  previous 

game.   In  the  latter  case,  the  monitor  displays  a  codeword 

request  page  for  player  access  for  the  year  following  the 

point  the  play  was  previously  interrupted.   And  in  any  event, 

if  the  computer  fails  to  communicate  with  the  diskette  loaded 

in  the  external  drive,  the  cue  'FILE  TEMPOA:   TEMPOA.CODE 

NOT  FOUND'  will  appear  at  the  top  of  the  monitor,  and  drive 

activity  will  halt.   The  players  should  re-insert  TEMPOA 

DISK  2  into  the  external  drive  and  reinitialize  the  Apple  III, 
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Following  the  successful  code  file  loading,  the 
umpire  is  requested  to  indicate  what  type  of  printer  is 
connected  to  the  Apple  III.   Both  a  printed  forecast  and 
an  exhaustive  annual  summary  of  each  player's  game  status 
(detailed  in  later  sections)  are  made  available  at  the 
termination  at  the  end  of  a  player's  decision  cycle. 
Neither  summary  nor  forecast  will  be  offered  unless  the 
umpire  has  indicated  the  presence  of  a  compatible  printer. 
Selection  of  the  SILENTYPE  option  will  assume  that  the 
printer  is  connected  to  the  Apple  printer  port  A.   Selection 
of  the  RS232  option  assumes  the  printer  is  properly  config- 
ured to  communicate  with  the  Apple. 

Having  indicated  the  printer  status,  the  umpire  is 
presented  with  the  display  depicted  in  Figure  3.5.   This 
menu  allows  the  umpire  access  to  all  weapon  systems  param- 
eters, budget  forecasts,  and  a  section  designed  to  allow  him 
to  override  TEMPOA's  algorithmic  expectation  of  war.    In 

*  Systems  Review  * 

1. . .3rowse/Alter  default  weapon  system  budget 
parameters 

2... Add  new  systems 

3... Delete  a  system 

4 . . .Browse/Alter  annual  budgets  for  all  game  years 

5... Elect  to  control  the  annual  probability  of  war 

6... Obtain  printout  of  all  game  systems  and  parameters 

7... Quit  umpire  section  and  begin  game  play 

Figure  3.5   Umpire  Menu 
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addition,  the  umpire  may  elect  to  have  TEMPOA  produce  an 
initial  systems  printout,  if  a  printer  is  attached.   Such  a 
printout,  detailing  each  parameter  setting  of  all  game 
weapon  systems,  provides  the  umpire  with  complete  reference 
information  unavailable  to  the  individual  players.   The 
players  are  only  permitted  to  peruse  those  systems  and  R&D 
candidates  which  either  are  available  in  the  current  year,  or 
were  available  to  them  in  some  previous  year.   Opportunity 
systems  which  are  not  yet  available  are  masked  from  the 
players  by  TEMPOA. 

A  final  umpire  option  is  to  forgo  any  changes  and  quit 
the  umpire  game  segment,  beginning  the  play  with  default  game 
parameters.   The  default  settings  are  discussed  individually 
in  the  following  sections . 

Once  the  umpire  quits  the  umpire  game  segment,  all 
budget  and  weapon  system  parameters  are  fed  identically  to 
both  players ,  so  that  both  begin  the  play  with  equal 
opportunities . 

a.   Weapon  Systems 

The  umpire  may  browse  or  alter  the  weapon  system 
parameters  through  appropriate  selections  from  the  umpire's 
main  menu  (Figure  3.5) .   From  the  same  menu  he  may  opt  to 
delete  entire  systems  or  create  new  systems.   A  total  of  thir- 
teen totally  new  weapon  systems  may  be  manufactured  by  the 
umpire,  and  can  augment  the  seventeen  default  systems  resident 
in  TEMPOA.   Since  any  or  all  of  the  parameters  in  the  default 
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SYSTEM  2 


A   Name 0A2 


3    Type Offensive  System  Weapon  Type  A 

C   First  year  R&D  can  start : 1 

D      Yrs  R&D  completed  at  game  start: 0 

E      First  R&D  year  cost: $400 

F      Second  R&D  year  cost: $900 

G      Third  R&D  year  cost : $700 

H   Earliest  year  available  (after  R&D): 4 

I    Units  in  inventory  (at  game  start)  : 0 

J   Acquisition  cost  (per  unit)  : $300 

K   Operating  cost  (per  unit)  : $175 

L   Value  in  utils  (per  unit)  : 30 

M   Maximum  annual  purchase  rate: 15 

Enter  one  of  the  FOLLOWING  options: 

A... Delete  displayed  system  and  advance  page 
3... Advance  page  without  deleting  displayed 

system 
C. . .Quit  deleting 


Figure  3.6   Umpire  Systems  Browse 

systems  may  be  accessed  and  altered  by  the  umpire,  the  total 
number  of  configurable  weapon  systems  for  game  play  is  thirty 

Figure  3.6  shows  the  display  that  the  umpire  is 
presented  with  when  the  Browse/Alter  option  is  used.   An 
explanation  of  each  system  parameter  follows. 

'System  Name1  is  any  alphanumeric  string  of  char- 
acters.  The  seventeen  default  systems  are  loaded  initially 
with  generic  names,  such  as  OAl ,  DB2,  etc.,  but  may  be  umpire 
altered  to  read  HARPOON,  MXl ,  etc.  to  enhance  the  flavor  of 
the  game. 

'System  Type1  refers  to  which  of  the  four  cate- 
gories the  displayed  weapon  system  belongs. 
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The  next  five  program  lines  deal  with  research 
and  development.   Normally,  all  systems  which  are  not  in 
inventory  must  be  acquired  through  an  R  &  D  process.   How- 
ever, the  umpire  has  the  option  of  making  available  systems 
not  requiring  R&D.   This  option  is  exercised  by  making  the 
appropriate  entries  in  Figure  3.6.   (If  the  umpire  elects  to 
use  the  default  systems, only  four  will  appear  in  inventory 
at  game  start. ) 

'First  Year  R&D  Can  Start'  refers  to  the  game 
year  in  which  the  opportunity  for  initiating  the  project  is 
first  available.   'Yrs  R&D  Completed  at  Game  Start'  allows 
the  umpire  to  begin  the  game  with  R&D  partially  completed 
on  selected  systems .   The  next  three  lines  indicate  the 
annual  expenses  of  conducting  R  &  D  on  a  system.   An  R  &  D 
project  may  last  from  one  to  three  years.   To  account  for 
inflation  and  possible  cost  overruns,  a  uniformly  distributed 
random  variable  is  drawn  from  the  discrete  set  (0,  50,  100, 
150,  200}.   The  'actual'  annual  expense  of  R  &  D  is  the  sum 
of  this  variable  and  the  umpire's  elected  R&D  expense  figure 
This  result  will  be  made  known  to  the  players  as  the  game 
progresses . 

The  "Earliest  Year  Available  (After  R&D)' 
refers  to  the  first  year  in  which  the  player  may  add  the 
system  to  his  inventory.   Adding  the  number  of  required  years 
of  R  &  D  to  the  first  year  R&D  can  start  should  result  in 
the  first  year  the  system  becomes  available.   TEMPOA  conducts 
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this  simple  check  on  all  systems  created  or  altered,  and 
will  alert  the  umpire  of  the  discrepancy  when  an  attempt  is 
made  to  either  advance  the  page  in  the  'Browse/Alter1  option, 
or  quit  the  umpire  segment. 

'Units  in  Inventory1  is  applicable  only  to  those 
systems  in  inventory  at  game  start  and  not  requiring  R&D. 

•Acquisition  Cost1  is  the  purchase  price  per 
unit,  and  is  assessed  only  once  during  the  game  play  upon 
unit  procurement. 

'Operating  Cost'  is  the  annual  cost  of  maintaining 
and  operating  a  unit  in  inventory.   This  is  an  annual  assess- 
ment.  Units  which  are  in  inventory  are  assumed  to  be  operated, 
and  are  so  assessed. 

'Value  in  Utils1  is  simply  the  unit  util  value, 
and  when  multiplied  by  the  number  of  units  in  inventory, 
produces  the  gross  util  value  of  the  weapon  system. 

A  ceiling  exists  for  the  number  of  units  of  a 
specific  weapon  system  which  may  be  procured  during  any  given 
year.   This  is  referred  to  as  'Purchase  Rate'  and  is  the 
final  system  parameter  listed  in  Figure  3.6. 
b.  Budget 

Each  player  begins  his  year  with  the  same  budget 
figure  as  his  opponent.   This  amount  is  based  on  the  budget 
figures  elected  by  the  umpire.   Figure  3.7  depicts  the  page 
on  which  this  election  is  made,  and  is  accessed  through  the 
'umpire's  main  menu.   The  values  presented  are  the  default 

23 


BUDGET  INFORMATION 


EAR 

AMOUNT  ($) 

YEAR 

AMOUNT  ( $ ) 

1 

9300 

11 

9300 

2 

9600 

12 

9600 

3 

9400 

13 

9400 

4 

9200 

14 

9200 

5 

9100 

15 

9100 

6 

9100 

16 

9100 

7 

9100 

17 

9100 

8 

9100 

18 

9100 

9 

9100 

19 

9100 

10 

9100 

20 

9100 

<Enter  ' C'  to  make  a  change: 
<Enter  '  Q'  to  quit> 


Figure  3.7   Umpire  Budget  Review 


budget  values ,  and  the  years  shown  span  the  maximum  duration 
of  the  game,  twenty  years.   (The  umpire  is  queried  annually 
whether  or  not  to  conclude  the  game.) 

TEMPOA  deviates  from  the  umpire  elected  budget 
figure  in  the  following  manner:   In  an  attempt  to  simulate 
effects  of  inflation,  budget  cuts  and  budget  increases,  a 
uniformly  distributed  random  variable  is  drawn  annually  from 
the  interval  [-1000,   500],   The  actual  budget  figure 
presented  to  and  utilized  by  the  players  is  the  umpire- 
elected  value  (Figure  3.7)  summed  with  the  random  drawn 
variable.   (Budget  surpluses  are  not  carried  over  into  the 
following  year.)   This  final  figure,  discounted  by  penalties 
accrued  by  the  player,  is  displayed  in  several  locations 
to  each  player  during  the  year  in  which  the  figure  is  appli- 
cable.   (Penalties  are  discussed  later  in  the  Penalties 
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section.)   In  addition,  the  umpire's  elected  figure  for  the 
following  year  is  displayed  to  the  players  in  the  annual 
Budgetary /Systems  Purchase  Status  tableau,  explained  later. 
c.  Probability  of  War 

At  the  end  of  each  year,  after  both  players  have 
completed  their  decision  cycles,  TEMPOA  computes  the  annual 
probability  of  war.   First  the  program  determines  the  player 
with  the  larger  net  utility  capability  (as  described  in  the 
Objective  section)  and  declares  him  game  winner  for  the  year. 
It  then  algorithmically  computes  the  ratio  of  the  smaller 
net  utility  figure  over  the   larger,  and  subtracts  the  results 
from  unity.   The  final  figure  is  the  TEMPOA  annual  probability 
of  war.   Note  that  the  larger  the  disparity  between  player 
capability,  the  greater  the  resulting  probability  of  war. 

PROBABILITY  OF  WAR  COMPUTATION  OPTION 

The  annual  possibility  of  a  war  is  determined 
probabilistically  by  a  random  draw  whose  threshold 
value  is  based  on  the  magnitude  of  disparity  between 
players'  total  adjusted  utility  figures. 

The  umpire  may  elect  to  override  the  above 
computation  method  and  be  queried  annually  as  to 
whether  the  war  event  is  to  take  place. 

OVERRIDE  (Y  or  N) 

Figure  3.3   Umpire's  Probability  of  War  Option 

The  umpire  may  elect,  through  an  option  available 
in  his  main  menu  (and  depicted  in  Figure  3.8),  to  let  TEMPOA 
generate  a  uniformly  distributed  random  variable  (between  0 
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and  1)  to  determine  whether  the  war  event  occurs.   Or  he 
may  elect,  through  the  same  option,  to  have  TEMPO A  generate 
and  display  the  computed  probability  of  war,  and  query  the 
umpire  annually  to  determine  whether  the  event  should  take 
place.   This  override  capability  defaults  to  'off,  and 
TEMPOA  will,  unless  otherwise  directed,  generate  the  war 
event  independently  by  the  algorithm  detailed  above. 
Once  the  war  event  occurs,  the  player  with  the  larger  net 
utility  figure  is  declared  the  winner. 

C.   ANNUAL  PLANNING 

The  following  sections  treat  what  has  been  termed  the 
player  'decision  cycle1,  which  begins  with  the  player  code- 
word entry.   The  decision  cycle  concludes  when  a  player 
elects  the  'Quit'  option  from  his  main  menu  (Figure  3.9). 
1.   Annual  Forecast 

Following  the  entry  of  a  player's  codeword,  he  is 
provided  the  opportunity  of  obtaining  a  printout  (if  the 
umpire  has  previously  indicated  a  printer  is  attached) 
detailing  the  imminent  year's  weapon  systems  and  budget 
status.   Such  a  printout  would  be  useful  if  the  player  were 
acting  as  terminal  operator  for  a  team  of  game  participants 

The  forecast  has  eight  segments.   The  contents  of 
each  segment  are  only  briefly  described  below.   A  more 
detailed  discussion  is  provided  later  in  this  section. 

The  first  segment  is  a  list  of  all  weapon  systems 
currently  in  inventory.   The  second  is  a  similar  listing  of 
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all  systems  available  for  purchase  but  currently  not  in 
inventory.   Cumulative  utility  figures  for  each  of  the  four 
main  systems  types  are  contained  in  segment  three.   New  R&D 
opportunities,  continuing  R&D  opportunities,  and  shelved 
R&D  opportunities  make  up  the  next  three  segments.   Segment 
seven  displays  the  information  gathered  as  a  result  of  the 
previous  year's  intelligence  expenditures.   The  final  segment 
provides  the  working  budget  for  the  current  year. 
2 .   Main  Menu 

All  expenditures  made  by  a  player  are  made  through 
the  main  menu.   This  menu  supplies  a  common  return  point 
following  any  procurement  or  investment  decision,  and  offers 
the  sole  cycle  escape  avenue  through  its  'quit'  option. 

MAIN  MENU 

1... STATUS  OF  FORCES  CURRENTLY  IN  INVENTORY 

2... STATUS  OF  FORCES  AVAILABLE  BUT  NOT  IN  INVENTORY 

3... CURRENT  RESEARCH  AND  DEVELOPMENT  CANDIDATES 

4 . . . INTELLIGENCE/COUNTERINTELLIGENCE  INFORMATION 

5... CURRENT  BUDGETARY/SYSTEMS  PURCHASE  STATUS 

6... QUIT  (MAKE  NO  FURTHER  BUDGET  DECISIONS  THIS  YEAR) 

Enter  the  desired  option  number: 
Figure  3.9    Players  Main  Game  Menu 

The  first  four  options  listed  channel  the  player  to 
those  areas  where  decisions  are  made  affecting  his  current 
budget.   The  fifth  option  allows  the  player  to  view  a  summary 
of  his  budget  status,  reflecting  the  immediate  impact  of  all 
procurement  and  expenditure  decisions.   The  final  option  listed 
signals  the  completion  of  the  decision  cycle. 
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3.   Forces  Currently  in  Inventory 

Figure  3.10  depicts  the  display  when  the  first  option 
in  the  main  menu  is  selected.   Those  systems  with  positive 
inventories  are  listed.   Additionally,  the  following  parameters 
are  displayed;   system  name,  system  type,  inventory  quantity, 
unit  acquisition  and  operating  costs,  utils  per  unit,  annual 
purchase  limit,  and  the  total  system  utility  value  and  oper- 
ating costs. 


f=GRCES    CURRENTLY     IN    INVENTORY 

\Q  OP  P'JPCH  TrTAL 

SYSTFfMTYPE)        INVENTCPY  COST       COST       UTILS         LI«!T  DPCCST      UTILS 


QAKCA) 

ZO 

S30 

S1C0 

SO 

25 

S2000 

1200 

0A3( DA) 

20 

SI  5 

S6  0 

*0 

4-0 

*1800 

L2C0 

0AM  QA) 

20 

i-0 

S120 

10 

10 

S2^0C 

1600 

Q62<  C8) 

5 

$15 

S30 

20 

W5 

S15C 

100 

YOU    TURRENTLY     HAVE     S1900    LEFT    TO     SPEND    FOR    THE     FISCAL     /E*«. 
<FRESS     P    TO    PURChASEt    S    TO    SCPAP    UNITS    OP    RETURN     TH    E  <  I  T  > 


Figure  3.10   Systems  Currently  in  Inventory  Tableau 

The  player  is  given  three  options  (from  Figure  3.10)  : 
purchase  new  units;  scrap  existing  units;  or  quit  and  return 
to  the  main  menu.   If  the  player  elects  to  either  purchase  or 


28 


scrap  units ,  he  is  requested  to  specify  which  of  the  systems 
from  the  displayed  listing  he  wishes  to  expand  upon  (or  trim) 
Once  the  player  has  responded,  the  listing  is  replaced  by  a 
System  Information  tableau  depicted  by  the  upper  portion  of 
Figure  3.11.   Following  TEMPOA's  prompting,  the  player  enters 
the  number  of  units  he  wishes  to  buy  or  scrap.   The  display 
of  Figure  3.11  is  now  completed,  and  an  Updated  System  Infor- 
mation tableau  augments  the  previous  System  Information 
tableau.   All  acquisition  and  operating  costs,  as  well  as 
annual  budget  data,  are  immediately  updated  to  reflect  the 
player's  procurement  decision.    In  order  to  understand  the 


SYSTEM     INFORM A7I0N : 

AQ  QP  PURCH                      TrTAl 

SYSTEM(TYPS)         INVENTORY          COST  COST  UTILS          LIMIT  OPCOST       UTILS 

OAKOd)                         20                 $30  S1C0  60                 25  S2CCC           L200 


UPDATED     SYSTEM    INFORMATION: 

AQ  OP  PURCH  TOTAL 

SYSTEM(TYPE)         INVENTORY  COST       COST       UTTLS  LIMIT  3PC0ST       UTILS 

0AK0A)  20  $30  SIC0  60  25  $3G0Q  1800 

00   YGU    WilMT    T|    ^AKE    ANOTHER     CHANGE? 
<ENTER    Y    OR    M> 


Figure  3.11   Systems  Purchase  and  Update  Tableau 
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updating  impact  of  a  decision  to  purchase  or  scrap,  it  is 
necessary  to  take  a  closer  look  at  how  TEMPOA  performs  the 
arithmetic. 

Associated  with  each  system  are  two  special  variables, 
one  called  the  system  inventory  and  the  other  called  the 
'threshold'  number.   The  system  inventory  always  reflects  the 
number  of  units  of  that  weapon  system  in  inventory  at  any 
given  moment.   The  threshold  number  is  simply  the  number  of 
units  in  inventory  with  which  the  player  began  the  year. 
The  second  variable  represents  those  units  for  which  an 
acquisition  expense  has  already  been  incurred.   While  the 
inventory  figure  may  fluctuate  throughout  the  decision 
cycle,  the  threshold  value  will  remain  fixed,  and  will  pro- 
vide TEMPOA  the  necessary  flexibility  to  allow  the  player 
to  reverse  his  decision  with  impunity  throughout  the  cycle. 

When  a  player  makes  a  purchaser  his  inventory  is 
immediately  increased,  and  his  system  operating  cost  is 
simply  the  product  of  the  inventory  and  the  unit  operating 
cost  value.   When  a  player  scraps  units  of  a  system,  his 
inventory  and  system  operating  costs  are  immediately  decre- 
mented.  During  a  purchase,  however,  he  is  assessed  an  acqui- 
sition cost  for  only  those  units  which  are  in  excess  of  his 
threshold  figure.   And  during  scrapping,  he  is  'rebated'  an 
amount  equivalent  to  the  acquisition  costs  only  for  those 
scrapped  systems  which  are  in  excess  of  the  threshold  figure. 
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As  an  example  of  the  numerical  role  played  by  the 
threshold  figure,  consider  the  following.   A  player's 
threshold  is  thirty  units  and  his  inventory  is  forty  units 
(a  point  in  the  cycle  when  the  player  has  already  purchased 
ten  units  since  the  cycle  began) .   He  decides  now  to  scrap 
fifteen  units.   His  updated  inventory  will  be  twenty-five 
units.   His  threshold  is  still  thirty  units.   His  updated 
operating  costs  reflect  his  current  inventory  of  twenty-five 
units.   His  budget  funds  remaining  has   increased  by  an 
amount  equal  to  the  acquisition  price  of  ten  units  (not 
fifteen) . 

TEMPOA  will  provide  the  alert  depicted  in  Figure 
3.12  if  the  player  attempts  to  spend  more  than  he  has  avail- 
able.  The  alert  acts  merely  as  a  warning,  and  will  not 
prevent  the  determined  player  from  overspending  his  budget. 
If  the  player  continues,  and  amasses  a  deficit,  an  amount 
equal  to  twice  the  deficit  figure  is  automatically  deducted 
at  the  end  of  the  decision  cycle  from  the  subsequent  year's 
budget. 

During  any  portion  of  the  decision  cycle,  an  attempt 
to  procure  more  units  than  the  purchase  rate  allows  will 
prompt  an  additional  warning.   TEMPOA  then  provides  the 
player  with  the  maximum  number  available  for  purchase,  and 
will  query  the  player  as  to  his  intentions . 


31 


WARNING 

You  have  not  enough  funds  remaining  in  the  year  to 
make  the  desired  acquisition 

Budget $9400 

Amount  spent  previously  for  acquisitions $0 

Amount  spent  for  intelligence $100 

Amount  spent  for  R  and  D $400 

Amount  to  operate  all  current  inventories $7200 

Amount  remaining $1700 

Acquisition  and  operating  costs 

of  system  quantity  selected $1860 

Deficit $160 

If  you  continue  with  this  purchase  and  do  not  scrap 
any  other  systems  (to  lower  your  operating  costs) 
you  will  have  an  annual  deficit.   Twice  this  amount 
will  then  be  deducted  from  next  year's  budget. 
Do  you  wish  to  continue  with  this  acquisition? 

<Y  or  N> 


Figure  3.12   Budget  Overrun  Warning  Message 

4.   Forces  Available  But  Not  in  Inventory 

All  display  formats  and  purchase  procedures  in  this 
section  are  identical  with  the  previous  section.   Systems 
itemized  in  the  manner  depicted  by  Figure  3.10  are  those 
whose  inventories  are  zero.   Increasing  the  inventory  of  any 
system  will  immediately  cause  the  system  to  be  transferred 
from  the  'Not  in  Inventory'  category  to  the  'Forces  Currently 
in  Inventory'  category.   Subsequent  perusal  of  this  system 
requires  a  return  to  the  main  menu,  and  selection  of  the 
'Forces  Currently  in  Inventory*  option. 

In  the  event  the  forces  listing  is  greater  than  four 
systems  in  length,  TEMPOA  provides  for  a  series  of  pages  to 
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be  created,  each  of  which  expresses  system  information  in 
the  standard  format.   The  paging  option  is  implemented 
automatically  when  the  need  arises,  and  each  page  provides 
the  player  with  the  purchase  option,  and  the  advance  page 
and  quit  options .   This  paging  procedure  is  also  implemented 
in  the  'Forces  Currently  in  Inventory'  segment. 
5 .   Research  and  Development  Candidates 

RESEARCH  AND  DEVELOPMENT  PROJECT  STATUS 

A... NEW  OPPORTUNITIES 
B. . .CONTINUING   OPPORTUNITIES 
C... SHELVED  OPPORTUNITIES 
Q. . .QUIT 

Figure  3.13   Research  and  Development  Menu 

All  systems  about  which  players  make  decisions  can  be 
categorized  into  three  mutually  exclusive  classes;  those 
systems  in  inventory,  those  systems  available  but  not  in 
inventory,  and  those  systems  in  some  stage  of  research  and 
development.   This  latter  class  of  systems  may  be  browsed  and 
manipulated  through  the  R  &  D  in  the  players'  main  menu. 
Once  selected,  an  R  &  D  menu,  as  depicted  in  Figure  3.13, 
appears  on  the  monitor. 

There  are  three  possible  stages  in  the  R&D  process . 
First  is  the  New  Opportunity  stage.   All  new  R&D  opportuni- 
ties make  their  initial  appearance  under  this  heading,  and  may 
be  viewed  by  selecting  the  first  of  the  options  depicted  in 
Figure  3.13.    The  selection  causes  the  display  to  be  replaced 
by  the  tableau  depicted  in  Figure  3.14. 
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NEW    B    5    0    OPPORTUNITIES 

YRS  (<£C       TOT    YRS     YR     I       YR    2        YR    3       ACQ  3P  "UfC 

NAME(TYPF)       CCPPLETEC         REQ'O      COST       CDST       CGST       COST       COST      UT I  L  S       *AT<E 

S40C  $350  S600  SAO  SMO  30  25 

$250  $403  $230  $30  $aC  oO  ^0 

$425  $423  SAGO  $65  $75  55  15 

$900  $650  $700  $100  $12G  L20  20 

*  NOTE:     ALL    NEW    R  £P    PRC  JEC  TS     WILL    BE    * 

*  SHELVED    AT    YEARENO    UNLESS    YOU         « 

*  NOW    CE SIGN  ATE  * 

YCU    h<VE     $L<;OC    REMAINING    IN    THIS     YEAR'S    BUDGET. 
ENTER    THE    NA.ME     CF    THE    SYSTEM     WHCS"    R  £  C    YOU    WISH    TO    aEGINi 
<TYPE     'QUIT'     TO    CLIO 


0E5O8  ) 

0 

a 

C/!4(CA) 

0 

2 

0BA(C8) 

c 

3 

0/3(CA) 

0 

1 

Figure  3.14   New  R&D  Opportunities  Tableau 

The  information  displayed  in  Figure  3.14  is  similar 
to  that  displayed  in  the  purchase  tableaus  with  minor  excep- 
tions.  'Yrs  R  &  D  Completed1  is  self-explanatory,  and  will 
have  a  value  of  zero  for  all  new  opportunities.   'Total  Yrs 
Req'd'  refers  to  the  number  of  years  of  R  &  D  required  to  make 
the  system  available  for  purchase.   This  figure,  when  compared 
to  the  'Yrs  Completed'  value,  gives  a  progress  report  on  the 
system's  R  &  D  status.   The  maximum  number  of  required  R&D 
years  for  any  TEMPOA  weapon  system  is  three.   The  next  several 
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entries  in  the  tableau  reflect  the  expected  cost  of  pursuing 
R  &  D  on  the  described  system. 

When  the  player  elects  to  begin  or  continue  R  &  D  on 
a  specific  system  (the  option  depicted  at  the  bottom  of 
Figure  3.14),  the  incurred  expense'  is  equal  to  the  figure 
indicated  under  the  appropriate  year  column.   This  cost  is 
immediately  deducted  from  the  annual  budget.   The  remaining 
year  cost  columns  in  the  R&D  menu  are  forecasts  only,  and 
the  figures  under  those  headings  may  vary  as  a  result  of  an 
inflation  simulation.   At  the  end  of  each  year,  a  uniformly 
distributed  random  variable  is  drawn  from  the  discrete  set 
(0,  50,  100,  150,  200},  and  is  added  to  the  subsequent  year's 
expected  R&D  costs.   As  a  result,  the  expense  of  contin- 
uing a  system's  development  may  become  more  expensive  than 
anticipated,  and  players  may  decide  to  shelve  the  project 
temporarily . 

All  new  opportunity  projects  about  which  no  player 
decisions  are  made  will  be  put  automatically  into  the  shelved 
opportunity  class  by  TEMPOA  at  the  end  of  the  decision  cycle. 
TEMPOA  makes  no  automatic  budget  assessments  for  either  new 
or  shelved  R&D  opportunities. 

The  Continued  Opportunity  listing,  also  displayed 
through  the  R&D  menu,  itemizes  all  systems  funded  for  R&D. 
The  format  is  similar  to  that  depicted  in  Figure  3.14.   The 
'Yrs  R&D  Completed1  value,  however,  will  be  non-zero  in 
those  instances  where  R&D  was  previously  funded. 
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The  current  budget  figure  always  reflects  the  expense 
of  pursuing  those  R&D  projects  itemized  under  'Continuing 
Opportunities'.   When  a  new  opportunity  is  funded,  the 
system's  status  changes,  and  the  budget  is  immediately 
assessed  the  appropriate  year's  R&D  cost.   Similarly,  when 
a  previously  shelved  opportunity  is  continued,  its  status 
changes  and  the  assessment  is  again  performed  (and  a  possible 
penalty,  described  later,  is  charged). 

From  the  Continuing  Opportunities  display,  a  player 
may  elect  to  shelve  one  of  the  listed  systems.   Shelving  a 
system  will  cause  an  immediate  reinstatement  of  budget  funds 
to  occur,  the  amount  equivalent  to  the  cost  of  R  &  D  pursuit 
for  that  system.   At  cycle  end,  all  systems  in  the  Continuing 
Opportunities  status  are  assumed  to  remain  in  that  status  for 
the  beginning  of  the  subsequent  year. 


PENALTY  PRICES  FOR  RESUMING  PREVIOUSLY  SHELVED 

R&D  PROJECTS 

System  (Type)  Penalty 

0A2 (OA)  $300 

DB3(DB)  $250 

OB4 (OB)  $275 

0A3 (OA)  $300 

You  have  $1600  remaining  in  this  year's  budget. 

Enter  the  name  of  any  system  whose  R&D  you  wish 

to  resume: 

<Type  'quit'  to  Quit> 
Figure  3.15    R&D  Penalty  Tableau 
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Shelved  Opportunities,  the  last  stage  to  which  an 
R&D  project  may  belong,  is  the  set  of  all  systems  whose 
project  development  is  temporarily  held  in  abeyance.   The 
display  format  for  these  systems  is  similar  to  that  of  the 
other  two  stages.   Once  shelved,  projects  are  indefinitely 
held  in  this  status,  carried  over  from  one  year  to  the 
next  automatically  by  TEMPOA.   If  the  player  decides  to 
resume  development,  he  is  assessed  the  appropriate  year's 
R&D  cost  (previously  explained) ,  in  addition  to  being 
assessed  a  resumption  penalty  cost.   This  cost  reflects  the 
expense  of  reactivating   old  facilities  and  the  general 
regrouping  of  effort  needed  to  pursue  previously  discon- 
tinued  projects.   Specifically,  it  is  equal  to  $300,  or  the 
cost  of  the  most  recent  year  of  R  &  D  completed  on  the 
shelved  project,  whichever  is  less.   A  listing  of  penalties 
for  all  shelved  systems,  as  depicted  in  Figure  3.15,  is 
accessed  through  the  third  option  in  the  R&D  menu. 

A  budget  overrun  warning,  similar  to  the  purchase 
overrun  warning  described  earlier,  is  utilized  in  the  R&D 
segment,  and  cautions  the  player  when  excessive  R&D  invest- 
ments are  attempted. 

6 .   Intelligence/Counter intelligence  Information 

Figure  3.16  displays  the  intelligence/counter- 
intelligence  menu  available  to  the  player  through  his  main 
game  menu.   The  options  available  are  three;  receive  previ- 
ously purchased  information,  fund  the  purchase  of  future 
information,  and  cancel  the  funding  allotted  earlier  in  the 

cycle. 
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SELECT  INTELLIGENCE  OPTION: 

A. ...  Receive  Previously  Purchased  Intelligence 

Information 
3. . . .Purchase  Intelligence/Counterintelligence 

Information 
C... Cancel  All  Intelligence/Counterintelligence 

Requests  for  the  Current  Year 
Q. . . .Quit 


Figure  3.16   Intelligence/Counterinteiligence  Menu 

Four  distinct  types  of  intelligence  information  may 
be  procured.   The  first  two  concern  enemy  offensive  and 
defensive  force  strengths,  respectively.   The  latter  two 
are  information  regarding  enemy  offensive  and  defensive  R&D 
projects . 

3y  selecting  the  first  option  in  Figure  3.16,  the 
player  may  review  information  procured  by  intelligence 
funding  the  previous  year.   In  game  year  one,  as  in  any  year 
not  preceded  by  an  intelligence  procurement,  no  intelligence 
information  can  be  reported,  and  an  appropriate  comment  to 
that  effect  will  be  indicated.   Figure  3.17  depicts  typical 
results  of  electing  the  first  option  from  the  Intelligence/ 
Counterintelligence  menu  (Figure  3.16). 

The  first  two  TEMPOA  responses  in  Figure  3.17  will  be 
one  of  three  possibilities:.   If  no  money  was  previously 
expended  for  the  intelligence  category  listed,  the  cue  *N0 
INFORMATION  PROCURED'  will  be  displayed.   If  the  intelligence 
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CURRENT  INTELLIGENCE  REPORTS: 

ENEMY  OFFENSIVE  FORCES  INFORMATION: 
NO  INFORMATION  PROCURED 

ENEMY  DEFENSIVE  FORCES  INFORMATION: 

Total  enemy   defensive  utils  are  estimated 
to  be  between  2736  and  3029 

ENEMY  OFFENSIVE  R&D  INFORMATION: 

CIA  unable  to  breach  enemy  counterintelligence 
barrier 

ENEMY  DEFENSIVE  R&D  INFORMATION: 

Reports  indicate  enemy  currently  funding  3 
defensive  R&D  projects 


Figure  3.17   Intelligence  Report 

category  was  funded,  but  the  enemy  provided  for  counter- 
intelligence funding,  then  TEMPOA  will  respond  with  'CIA 
unable  to  breach  enemy  counterintelligence  barrier' .   If 
funding  was  provided  and  the  enemy  failed  to  provide  for 
counterintelligence,  then  TEMPOA  responds  with  upper  and 
lower  bounding  estimates  of  the  enemy's  total  utility  for 
the  appropriate  system  category.   Each  bound  is  arrived  at 
separately  through  distinct  uniform  random  variable  draws 
from  the  interval  [0,  200] .   These  two  variables  are  then 
added  and  subtracted,  respectively,  from  the  actual  total 
enemy  utility  figure  to  generate  the  displayed  upper  and 
lower  bounds . 

The  last  two  TEMPOA  responses  in  Figure  3.17  will 
have  the  same  first  two  possibilities  as  explained  previ- 
ously.  If  funding  was  provided  and  the  enemy  has 
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established  no  counterintelligence,  however,  TEMPOA  will 
respond  with  the  number  of  currently  funded  enemy  R&D 
projects  of  the  appropriate  system  category. 

PURCHASE  OPTIONS 

A... Current  Force  Strength  of  Enemy  Offensive  Forces 

B... Current  Force  Strength  of  Enemy  Defensive  Forces 

C... Current  Offensive  Enemy  R&D  Projects 

D. . .Current  Defensive  Enemy  R&D  Projects 

E... Supply  Counterintelligence  Regarding  Own  Offensive 

Forces 
F... Supply  Counterintelligence  Regarding  Own  Defensive 

Forces 
G... Supply  Counterintelligence  Regarding  Own  Offensive 

R&D 
H. . .Supply  Counterintelligence  Regarding  Own  Defensive 

R&D 
Q. . .Quit 

Intelligence  Cost  per  Item  (A  thru  D) :   $100 
Counterintelligence  Cost  per  Item  (E  thru  H) :   $200 

ENTER  OPTION  LETTER: 
Figure  3.18   Intelligence/Counterintelligence  Purchase  Menu 

Option  two  from  the  R&D  menu  (Figure  3.16)  presents 
the  display  depicted  in  Figure  3.18,  and  allows  the  player 
to  procure  intelligence  information  or  to  provide  for  the 
supply  of  counterintelligence.   The  cost  of  intelligence  pro- 
curement is  $100.   The  cost  of  providing  counterintelligence 
is  $200.   Counterintelligence  is  used  to  deny  the  enemy  infor- 
mation whose  acquisition  he  is  funding.   All  procurements  are 
immediately  deducted  from  the  annual  budget  figure. 

The  final  option  allows  the  player  to  reverse  previous 

intelligence/counterintelligence  decisions,  and  cancel  ail 

such  funding  for  the  cycle. 
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7.   Budget /Systems  Purchase  Status 


BUDGET  INFORMATION 

Year:  3         Total  annual  allowance:    $9300 

Amount  spent  in  acquisitions $850 

Amount  spent  on  intelligence $600 

Amount  spent  on  R&D $2000 

Operating  costs  by  system  (those  in  inventory) : 

System  (Type)  Quantity  Total  Operating  Costs 
OAl(OA)             40  $1200 

DBl(DB)  100  $2000 

OB3(OB)  100  $1500 

Expected  defense  budget  for  next  year:   $8700 
Total  monies  remaining:   $1150 

< Press  RETURN  to  Return  to  Main  Menu> 


Figure  3.19   Budget/ Systems  Information 

A  current  summary,  depicted  in  Figure  3.19,  is  avail- 
able to  the  player  at  any  time  during  his  decision  cycle 
through  an  option  in  his  main  menu.   The  summary  provides  a 
documentation  of  monies  allotted  during  the  current  cycle  for 
system  acquisitions,  intelligence  and  counterintelligence 
procurement,  and  R&D  funding.   Additionally,  the  summary 
breaks  down  ail  systems  currently  in  inventory  by  name  and 
system  type,  and  provides  individual  operating  costs.   The 
summary  concludes  with  the  amount  of  budget  funds  remaining, 
and  an  estimate  of  the  following  year's  budget  allocation. 

D.   ANNUAL  OUTPUT 

Immediately  following  the  conclusion  of  a  player's  decision 
cycle  he  is  given  the  option  (if  the  umpire  has  previously 

41 


indicated  a  printer  has  been  attached)  of  obtaining  an  exhaus- 
tive printed  summary  detailing  his  budget  decisions  and  weapon 
systems  status  for  the  year  just  completed.   Once  elected, 
the  printing  takes  two  to  three  minutes,  and  cannot  be 
interrupted. 

The  printout  is  divided  into  eight  segments.   The  first 
segment  itemizes  all  weapon  systems  currently  in  inventory, 
and  provides  a  breakdown  of  each  system  into  its  component 
parameters.   The  second  segment  provides  the  same  breakdown 
for  all  weapon  systems  available  but  not  in  inventory.   Total 
cumulative  utility  figures  for  each  of  the  four  main  system 
types  are  provided  by  segment  three.   The  next  segment  item- 
izes all  continuing  R&D  projects,  providing  the  same  param- 
eter details  as  contained  in  the  first  segment.   Segment  five 
treats  all  shelved  R&D  projects.   As  mentioned  earlier, 
this  category  includes  any  unacted  upon  R&D  opportunities 
which  were  introduced  to  the  player  as  new  during  the  previous 
cycle.   The  sixth  segment  deals  with  a  budget  summary  and 
forecast  for  the  upcoming  year.   The  information  provided  is 
similar  to  that  available  to  the  player  through  his  Budget/ 
System  Status  option  in  his  main  menu.   The  last  two  segments 
are  forecasts  of  systems  which  will  appear  as  opportunities 
at  the  start  of  the  following  decision  year.   Segment  seven 
forecasts  systems  which  the  umpire  has  made  available  in 
inventory  without  requiring  player  R&D  effort.   Segment  eight 
forecasts  new  R&D  projects  to  be  introduced  to  the  game  the 

following  year. 
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E .   WINNING 


AS  A  RESULT  OF  A  TALLY  OF 
OPERATIONAL  FORCES  UTILITY 
POINTS. . . 

Chris 

...  IS  DECLARED  WINNER 
FOR  GAME  YEAR  5. 


Figure  3.20   Winner  Declaration 


TEMPOA  declares  a  win  at  the  end  of  the  year  based  on  the 
player's  net  utility  figures.   The  exact  algorithm  has  been 
explained  in  the  Objective  section.   Figure  3.20  characterizes 
the  display  presented  by  TEMPOA  when  a  winner  is  declared. 
A  tie  is  called  in  the  event  the  players  have  identical  net 
utility  figures. 

F.   SAVING  THE  GAME 

At  the  end  of  each  player's  turn,  the  umpire  is  presented 
with  a  menu  selection  which  provides  him  the  option  of  termi- 
nating the  game.  Specifically,  he  may  decide  to  end  the  game 
and  save  the  game  data,  or  he  may  continue  with  the  game.  If 
the  umpire  elects  to  conclude  the  game  and  preserve  the  game 
data,  then  TEMPOA  creates  a  data  file  on  the  external  diskette 
and  writes  all  systems  and  budget  information  for  each  player 
onto  the  file.  When  all  disk  drive  activity  has  stopped,  the 
play  is  concluded  and  the  Apple  may  be  turned  off.  When  next 
the  TEMPOA  program  is  initialized,  the  umpire  should  indicate 
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that  the  game  is  a  resumption  (see  Preliminaries  section  for 
appropriate  cue  information) .   In  the  event  the  game  is  again 
shelved,  the  old  data  file  on  the  external  diskette  is  merely 
updated.   The  play,  then,  may  be  interrupted  frequently  without 
loss  of  data  storage  space  due  to  a  need  to  save  the  most 
current  data  base.   In  addition,  several  separate  games  may 
be  played  in  the  interval  between  the  saving  of  a  game  and  its 
resumption,  as  long  as  no  attempt  is  made  to  save  one  of  the 
intervening  games . 

G.   PENALTIES 

Three  penalties  may  be  assessed  a  player  during  the  game. 
The  cost  of  losing  a  war  is  $1000,  and  is  immediately  deducted 
from  the  following  year's  budget.   A  second  penalty  is  the 
extra  expense  incurred  by  budget  overruns.   At  the  end  of  each 
year,  twice  the  amount  of  any  budget  overrun  is  deducted  from 
the  guilty  player's  upcoming  year's  budget.   Note  that  while 
a  player  is  penalized  for  a  budget  overrun,  he  is  not  given 
credit  for  budget  surpluses.   As  in  many  military  procurement 
scenarios,  what  isn't  used  is  lost.   The  final  way  a  player 
may  be  penalized  is  by  resuming  a  shelved  R&D  project.   If 
the  shelved  system  was  actively  pursued  at  some  earlier  time, 
then  an  added  expense  is  incurred  for  project  resumption. 
The  cost  is  equal  to  $300,  or  the  cost  of  the  most  recent  year 
of  R  &  D  completed  on  the  shelved  project,  whichever  is  less. 
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It  bears  mention  that,  in  light  of  these  penalties,  a 
player's  actual  annual  budget  may  differ  drastically  from 
the  umpire's  elected  figure.   A  budget  overrun  of  $500  coupled 
with  the  loss   of  a  war  will  cut  a  player's  expected  figure 
by  $2000.   In  addition,  the  random  draw  made  to  adjust  the 
budget  figure  for  inflation  may  slash  the  budget  by  another 
$1000.   The  resulting  budget  figure  may  surprise  the  unalerted 
player.   3oth  players  are  strongly  advised  to  heed  TEMPOA- 
generated  budget  overrun  alerts ,  and  be  wary  of  overextending 
operating  commitments  into  subsequent  years . 

H.   STRATEGY 

The  goal  of  the  game  is  to  gain  the  upper  hand  in  terms 
of  offensive  utility  points,  while  maintaining  enough  defen- 
sive utility  points  to  offset  the  opponent's  offensive  capa- 
bility.  Players  wil]  not  achieve  this  end  simply  by  funneling 
monies  blindly  into  offensive  capabilities . 

If  the  game  duration  is  predetermined  and  announced  by 
the  umpire,  it  may  be  possible  to  successfully  model  TEMPOA 
as  a  complicated  dynamic  optimization  problem.   A  variable, 
undetermined  game  duration,  however,  frustrates  this  approach, 
and  the  player  is  resigned  to  work  out  his  'best'  strategy 
with  a  more  primitive  scheme. 

There  are  three  areas  in  which  a  player  might  sink  funds; 
intelligence,  R&D,  and  system  procurement. 

The  gathering  of  intelligence  information  is  important 
for  providing  guidance  for  which  type  of  system  to  allot  R&D 
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funding.   And  the  cost  of  intelligence  procurement  is  rela- 
tively inexpensive  when  compared  to  the  pursuit  of  an  R&D 
project  or  the  augmentation  of  an  existing  weapon  system. 
Intelligence  is  as  much  a  priority  to  a  player's  enemy  as 
it  is  to  the  player  himself,  hence  the  need  to  fund 
counterintelligence  activities.   A  judicious  use  of  counter- 
intelligence will  effectively  mask  critical  information 
concerning  systems  where  a  player  is  particularly  weak,  or 
where  a  player  is  expanding  in  preparation  for  the  great 
'coup' . 

Most  of  the  default  R&D  projects  require  three  years 
of  funding  before  they  are  available  for  purchase.   A  three 
year  delay  is  a  significant  interval,  and  players  should  not 
delay  in  initiating  R&D  projects  which  will  bear  no  fruit 
for  several  decision  cycles.   It  is  easy  to  become  misled  by 
visions  of  a  late  return  for  early  efforts .   To  delay  the 
start  of  an  attractive  R&D  project  in  favor  of  a  lesser 
capable  but  more  immediate  investment  may  be  taking  risks 
that  the  player  can   ill  afford.   Frivolous  shelving  is 
costly.   The  penalty  price  associated  with  resuming  shelved 
R&D  projects  (in  addition  to  the  delay  in  getting  them  "on 
the  street')  may  exceed  the  expense  of  the  budget  overrun 
caused  by  continuing  the  project.   The  costs  and  penalties  for 
shelving  are  not  always  transparent,  and  the  decision  to 
shelve  warrants  careful  scrutiny. 
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Scrapping  systems  currently  in  inventory  should  be  treated 
in  the  same  way  as  shelving  R&D  projects.   For  each  unit 
scrapped  in  haste,  though  the  annual  operating  expense  has 
been  reduced,  the  equivalent  acquisition  cost  has  been  wasted. 
Scrapping  is  an  appropriate  measure  only  when  presented  with 
an  attractive,  cost-effective  weapon  system  whose  operation 
under  the  budget  constraint  necessitates  the  replacement  of 
less  efficient  systems.   Systems  of  the  same  type  may  be 
compared  in  a  cost-effectiveness  mini-study,  where  expendi- 
tures are  amortized  over  some  predetermined  interval.   A 
similar  approach  has  been  successfully  used  to  deal  with  R&D 
systems . 

The  brunt  of  the  emphasis  in  recent  TEMPO  versions  has  been 
on  team  interaction  and  the  analysis  accompanying  the  decision 
cycle.   In  the  current  version,  the  duration  of  the  decision 
cycle  is  left  to  the  umpire.   However,  the  more  time  allowed 
the  players  during  their  cycles,  the  more  complex  and  competi- 
tive their  analysis  is  expected  to  be. 
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IV.   CONSTRAINTS  AND  LATITUDES 

This  chapter  is  divided  into  sections.   The  first  section 
treats  player  constraints  and  variable  limits,  while  the  second 
deals  with  those  areas  of  TSMPOA  where  random  numbers  are 
generated  and  used. 

A.   CONSTRAINTS 

Game  duration  is  limited  to  twenty  years.   This  constraint, 
elected  as  a  reasonable  upper  bound  for  the  game  duration,  was 
embedded  in  TEMPOA  to  allow  the  umpire  the  flexibility  to  alter 
a  set  of  default  budget  figures.   If  a  duration  greater  than 
twenty  years  is  desired,  it  is  only  necessary  to  alter  the 
length  and  initialize  the  values  of  the  integer-valued  budget 
vectors  REDBUDGET  and  BLUBUDGET,  declared  in  the  main  program. 

The  maximum  number  of  game  weapon  systems  is  thirty. 
Seventeen  are  default  systems,  and  may  be  altered  beyond 
recognition  by  the  umpire.   Another  thirteen  systems  may  be 
created  by  the  umpire  to  augment  the  default  systems.   Again, 
the  bound  at  thirty  was  elected  as  a  reasonable  limit  to  the 
number  of  system  alternatives  a  player  would  be  able  to  deal 
with.   An  incremental  increase  in  the  number  of  systems  avail- 
able increases  the  game  complexity  exponentially. 

All  arithmetic  operations  performed  by  TEMPOA  use 
integer-valued  variables.   And  in  the  main,  integer  varibles 
have  been  used  more  frequently  than  long  integers .   The 
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probability  of  war  computation,  while  appearing  to  use  and 
display  real-valued  variables,  actually  uses  long  integers  and 
an  artificial  decimal  display.   As  a  result  of  the  prevalence 
of  integer  variables,  the  maximum  value  TSMPOA  arithmetic  can 
be  expected  to  deal  with  is  32  76  7.   This  is  a  constraint  of 
the  Apple  itself.   Since  the  greatest  expenditures  will  not 
often  exceed  the  annual  budget,  care  need  only  be  taken  to 
ensure  the  umpire  does  not  elect  to  use  budget  values  in 
excess  of  32767  (budget  default  values  are  approximately  9000) 
This  will  artificially  bound  expenditures.   And  observing  that 
unit  utility  values  are  roughly  comparable  to  unit  operating 
costs,  bounding  the  annual  budget  figures  effectively  caps 
the  total  systems  utility  values  as  well .   Annual  expenditures 
and  gross  utility  values  are  the  largest  variables  dealt  with 
in  TEMPOA.   Ensuring  their  bounds  are  within  Apple  integer 
constraints  is  sufficient  to  safeguard  all  other  variables . 

Aside  from  the  mentioned  constraints  and  the  limitations 
of  the  display  presented  on  the  monitor,  TEMPOA  has  been 
constructed  to  be  flexible  and  forgiving.   Numerical  entries 
not  within  the  allowable  range  of  the  assignment  will  prompt 
a  TEMPOA  cue  highlighting  the  error  and  cautioning  the  player. 

B.   LATITUDES 

Random  numbers  are  drawn  and  used  in  four  instances  during 
the  game  play.   The  Apple  System  Library  unit  Applestuff  pro- 
vides the  source  of  the  random  numbers.   All  begin  uniformly 
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distributed  over  the  interval  [ 0,  1]  .   a  linear  transformation 
is  then  performed  on  each  draw  to  provide  the  appropriate 
variable  range  required.   The  Randomize  procedure/  also  pro- 
vided by  the  Applestuff  unit,  is  used  to  avoid  the  repetition 
of  a  draw  sequence  in  subsequent  games. 

Draws  are  made  in  the  following  circumstances;   to  provide 
upper  and  lower  bounds  to  the  enemy  utility  figure  reported  to 
the  player  as  the  result  of  an  unblocked  intelligence  request; 
to  determine  the  annual  effect  of  inflation  on  the  umpire- 
selected  budget  value;  to  determine  the  effect  of  inflation 
on  the  imminent  year's  R&D  cost  for  any  continuing  R&D 
opportunity;  to  determine,  if  umpire-elected,  whether  a  war 
event  is  to  take  place.   A  more  precise  description  of  the 
algorithms  used  in  the  above  circumstances  is  available  in  the 
appropriate  sections . 
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V.   RECOMMENDATIONS 

TEMPOA  is  constructed  to  mime  the  realities  of  the  defense 
procurement  and  development  process.   To  the  extent  in  which 
it  falls  short  of  this  goal,  room  for  program  enhancement 
exists . 

A  glaring  artificiality  is  the  encompassing  in  a  single 
value,  called  'util',  the  full  capability  and  military  signifi- 
cance  of  an  entire  weapon  system.   Certainly  this  streamlines 
TEMPOA.   And  it  frees  the  player  to  concentrate  his  efforts 
on  budget  allocation  rather  than  on  pure  systems  analysis 
concerns.   Nonthelessf  injecting  a  more  realistic  systems 
assessment  would  enhance  TEMPOA  and  add  a  new  level  of  sophis- 
tication to  the  play. 

An  area  not  directly  addressed  in  TEMPOA  is  the  cumbersome 
artificiality  of  the  decision  cycle  scheme.   Forcing  one  player 
to  'wait  his  turn'  while  the  other  proceeds  through  the  decision 
cycle  is  not  merely  unrealistic.   Boredom  is  fostered  in  the 
nonparticipating  player.   A  more  desirable  scheme  would  be  a 
time-sharing  arrangement,  where  both  players  occupy  separate 
terminals,  linked  by  modem,  and  conduct  their  decision  cycles 
simultaneously.   Such  an  arrangement,  while  posing  no  great 
technical  difficulties,  requires  the  availability  of  multiple 
compatible  terminals.   In  addition,  the  need  would  arise  for 
both  players  to  complete  their  cycles  at  about  the  same  time, 
to  enable  a  timely  transfer  of  player  status  information  from 
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one  terminal  to  the  other  (in  order  to  provide  TEMPOA  the 
necessary  data  to  decide  and  declare  a  winner) . 

An  alternate  method  for  dealing  with  the  player  cycle  is 
to  have  duplicate  game  diskettes  given  to  the  players.   Each 
could  play  simultaneously  on  separate  non-linked  terminals. 
Following  each  turn,  a  data  file  summarizing  a  player's 
decisions  would  be  created  on  each  game  diskette.   The  umpire 
would  then  halt  the  game  and  switch  the  players'  diskettes. 
Each  player  could  then  retrieve  the  opponent's  data  file  and 
determine  a  score.   Diskettes  would  then  be  returned  to  the 
respective  players  to  begin  another  game  cycle. 

While  this  second  method  allows  for  simultaneous  game 
play,  it  requires  the  additional  manipulation  of  game  diskettes. 
Also,  the  umpire  would  be  required  to  monitor  the  cycle  dura- 
tion and  ensure  the  simultaneous  termination  of  each  player's 
game  year. 

All  of  which  highlights  the  desirability  of  an  internal 
clock  in  the  Apple  III.   In  the  current  TEMPOA  simulation,  an 
umpire  takes  the  place  of  a  clock,  and  may  establish  duration 
limits  for  player  decision  cycles.   A  clock  would  relieve  the 
responsibility  from  the  umpire,  and  would  also  provide  a  ready 
solution  to  the  problem  posed  by  the  need  for  simultaneous 
cycle  completion  when  using  two  linked  terminals. 

The  above  summarizes  the  more  glaring  shortcomings  of 

TEMPOA.   Other  such  areas  exist,  and  will  become  apparent 

whenever  the  player  finds  himself  muttering  in  a  frustrated 

tone  of  the  artificiality  of  a  TEMPOA-generated  situation. 
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VI.   MECHANICS 

This  chapter  discusses  the  required  hardware  upon  which 
to  play  the  TEMPOA  program.   In  addition,  the  section  on  soft- 
ware dwells  on  the  program  makeup,  TEMPOA  file  construction, 
and  procedure  segmentation. 

A.  HARDWARE 

The  program  TEMPOA  requires  the  use  of  one  Apple  III  128K 
microcomputer,  a  120V/60HZ  power  source,  and  one  external  disk 
drive.   While  TEMPOA  consists  of  three  separate  5  1/4"  floppy 
diskettes,  the  code  required  for  running  the  program  is 
contained  only  on  the  first  two. 

The  use  of  a  printer  is  optional.   However,  in  order  to 
obtain  an  umpire's  complete  systems  summary,  an  annual  player's 
decision  summary,  or  an  annual  status  forecast,  a  properly 
configured  printer  is  essential.   When  attached,  a  compatible 
printer  is  linked  through  the  Apple  RS2  32  port.   If  an  Apple 
Silentype  printer  is  used,  it  must  be  attached  to  Printer 
port  A. 

B .  SOFTWARE 

TEMPOA,  as  mentioned  above,  is  contained  on  three  diskettes 
TEMPOA  DISK  1  and  TEMPOA  DISK  2  contain  the  program  code  files 
and  are  used  to  run  the  game.   TEMPOA  DISK  3  contains  all  pro- 
gram text  files,  and  is  available  to  provide  the  user  with  the 
option  of  reconfiguring  or  editing  the  game. 
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Specifically,  TEMPOA  DISK  1,  which  is  inserted  in  the 
internal  disk  drive  prior  to  turning  the  power  on,  contains 
the  Apple  system  software  necessary  to  boot  the  TEMPOA  pro- 
gram.  Additionally,  it  contains  a  data  file  in  which  player 
names  and  codewords  will  reside.   Using  the  Apple  System 
Library  unit  Chains tuff,  the  booted  code  file  on  TEMPOA  DISK 
1  is  linked  to  the  main  program  on  TEMPOA  DISK  2,  which 
should  be  inserted  into  the  external  disk  drive.   Other  than 
the  initial  diskette  insertions,  no  further  file  or  diskette 
manipulations  are  required  of  the  player  during  the  remainder 
of  the  program. 

An  understanding  of  the  rationale  behind  the  TEMPOA  file 
configuration  is  necessary  if  the  user  anticipates  altering 
or  enhancing  the  program  text. 

File  arrangement  was  dictated  by  several  Apple  constaints 
First,  individual  procedure  size  limits  caused  simple  but 
lengthy  texts  to  proliferate  into  multiple  smaller  units. 
Hence  the  final  program  contains  an  inordinate  number  of 
nested  procedures .   A  second  consideration  in  program  design 
was  text  file  size.   In  order  to  amass  the  quantity  of  text 
embodied  by  TEMPOA,  the  program  was  divided  into  seven  text 
file  'batches',  plus  the  main  driver  text  file.   All  files 
are  then  compiled  sequentially  using  the  Apple  III  Pascal 
compiler  'include'  option. 

A  constraint  affecting  program  execution  was  the  limita- 
tion on  the  quantity  of  code  that  could  be  loaded  at  one  time 
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into  the  main  memory.   In  order  to  provide  adequate  space  for 
pertinent  sections  of  the  program,  large  blocks  of  text  were 
defined  as  'segmented'  procedures.   These  procedures,  compiled 
before  non-segmented  procedures,  are  not  automatically  loaded 
into  the  main  memory,  and  now  remain  resident  in  the  code 
files  until  called  by  TEMPOA. 

Sheer  size  of  the  TEMPOA  code  file  (160  diskette  blocks) , 
suggested  the  use  of  a  third  disk  drive  in  program  construction 
and  compilation.   The  requirement  that  certain  system  software 
files  be  resident  in  certain  drives  made  TEMPOA  file  manip- 
ulation during  construction  cumbersome.   While  users  are 
invited  to  modify  and  enhance  the  current  version  of  TEMPOA, 
the  use  of  a  third  drive  is  heartily  recommended  for  the  tasks 
of  editing  and  compilation. 
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COMPUTER  PROGRAM 


UNIT  MVSTUFPs 
INTRINSIC  CODE  17; 

USES  wPPLESTUFF; 


TNTERPQCS 


(The  following  three  procedures  were  created  and  installed  as  an  intrinsic 
unit  into  the  system  librar*-*.  Each  i«  call <*-r)  f re«w jent  1h  bv  the  driuer 
program  and  by  it?-  -at.ellitP  wbrout .in*«.. 5 

PROCEDURE  PUTIT  fx*w  :  integer;  phrase  :  string;; 

PROCEDURE  CLEfiRSCREEN; 

PROCEDURE  HELPi 

THPLEHEHTPTTHN 
PROCEDURE  PUTIT; 

CPlaces  a  siuen  string  at  a  «»iuen  «c~«en  location.} 
begin 

oOTOXV< v,y>; 
writelnX  phrase  •' 
end;  'put.  it} 

PROCEDURE  CLEhRSCREEN; 
{Erases  entire  scri&ri.'j 

c  ontro  1  :  1  nteger ; 
begin 

control  :=  29; 

unituiritev  I  j control  *2*»12>» 
■?nd*  -Cclearscreen} 

PROCEDURE  HELP; 

•CSounds  audio  ton*?   and  display*  cup  to  '->perat.nr.  } 
■;ar 

d   :    char; 
begin 

clearscreen; 

soundt.  S5#3jiS3  > ; 

mrit*ln;turitpln;niritpln;uirit  pin; 

aotoxyv  15*18  >; 

writelnx  '      You  tnust  choose  from   among  the    available  options. '  >; 

ptjtitc  23*  13  #  'Press  RETURN  to  return  to  menu'    <* 

read*  d  ;• 
end;  <!hel»> 

end.  Cmystuff} 
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PROSftflM  •5TQRTUP; 

USES  wPPLESTUFF.  CHfllNSTIJFF,  MVSTI.ICC; 

£ Boots  program*  provides  basic  user  handshake  and  introduction. 

Obtains  player  names,  tickler  to  ensure  di?k  *2  is  in  drive. 

Chains  to  main  TEMPO  program.  > 


-.'ar 
1: 


integer;   component:    2rr*&  [1..4]   cf  *-tr\n-?;   datafile:    file  of  string; 


PROCEDURE  ORwWl; 

•C  Drawl   and  0raw2  provide  f>r^<^ir^m   logo} 
begin 

writelrK  ' 
iteln. 

writeln< ' 


writelrK  ' 
'  ;; 

mriteln<  ' 
'  ); 

mritelrK  ' 
'  ) ! 

»iriteln<  ' 
-  )i 

mntelrK  ' 
'  ) » 

writelnX  ' 
'  Ji 

uiritelrK  ' 
*nd; 


WELCOME  TO'  >;writeln;writeln;wr 


TTTTTTTTTT 

EFEEEEE 

M 

M 

PPPPPP 

000000 

TTTmTTTT 

EE 

MM 

MM 

PP    PP 

00    00 

TT 

EE 

MMM 

MMMM 

PP    PP 

00      0 

TT 

EEEEFEE 

MrlMMMMMMM 

pppppp 

00      0 

TT 

EF 

MM 

M   MM 

PP 

00      0 

TT 

FE 

MM 

MM 

PP 

00    00 

TT 

r.  Or  ?<•! 

FFEEEEE 
1> 

MM 

MM 

PP 

000000 

'ROCEGURE  0RGH2; 

a   :    cnar; 
begin 

njritgln'.  ' 

i 

ujriteln<  ' 

i 

»iriteln<  ' 

»        '■' ; 

'•<nteln<  ' 

i 

wnteln'.  ' 

i 

write ln<  ' 

i 

writelrK  ' 

"ir  i  t,i»  i  rv.  ' 

i 

re  aot  a  :> 
•?nd» 


' ) 

'  > 

Th*    'n^^arf. '.<e   ?ame  of    international    wargame  f inane 


Pi»o~«   RgjliRN  to  continue 


dr  3i'i.i  ^ 


PROCEDURE  6ETNPMES; 
;.  Obtain  »iaver  names > 
begin 

c  learscreen; 

sotoxy<  10#1@  )i 

iiirite'.  '  Enter  the  name  of  °lay»r  Number  J  «:  Th<»n  pr<?«.s  RETURN' 

reading  component E  1  ]  -• ; 
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?otoxy<  Id*  11  .>; 

i'iri tec  '  Enter  a  codeword  for  Pi=,ypn  t  'Then  press  RETURN >s  ')s 
readlm  componentC3]  >s 
30toxy<  SO*  1 1  )  swri  te<  "         '  ■ ; 
sotoxyv  10.13  ■'» 

»irite<  'Enter  the  name  of  Player  Number  2  ('hen  press  RETURN):  '  )# 
read 1 n<  c omponent  C  2 ] > ; 
?otoxy<  10.14)* 

writeC 'Enter  a  coop'>«">rd  for  °la«j*r  2  ''.Then  pr»p«.s  RETURN >?  '  >* 
readlm  c  omeonent  C  4  ]  >.i 
aotoxy<  SO*  14  :>  swrite<  '  > 

*nd ;  C eetnames  > 

RRGCEDURE  QI3K2* 

{Tickler  to  ensure  dtsk  *2  is  in  tfriu*  *P> 

f   :    char; 
bee  in 

putitc  13, 13.   ENSURE   TFMPO  DIRK   *?   IS  LOPOEP    INTO  0RI"E  #2'  >J 

put ltl 27.20. ''Prpss   RETURN  to  Continue;-' ">; 

readtf  ) 
end*  <di«^2'> 

PROCEDURE  SCRIBBLE; 

C Introduction> 

war 

d  :  char; 

bee  in 

clear^creen; 

eutiu  13.5.'  The  follounns  interact Ut»  simulation  was  written  '  )* 
putit< l3»S»'by  Christopher  0.  0i«ens»  LT*  USN*  for  the  QppIp  III  ' )s 
putitc 13*7. 'microcomputer  in  partial  fulfillment  of  requirements  '  ')» 
put  it*.  13.3* 'for  the  deerees  of"  Master  of"  Snencp  in  Operations  ' ")i 
putitc 13.3*  Research  and  Master  of  Science1  Jn  Applied  Mathematics.  '>* 
putit<- 13.10.'  ')» 

put  if.  13*1 1 »'  Complete  prosram  documenT  at  ion  and  user  instructions  '  >* 
eutitt 13.12. 'are  contained  in  th*  *hpsi?  document,  it-self,  submitted  >i 
put it( 13*13*' in  Seetemoer  1932  at  f-he  Naval  Postgraduate  School  in  ')# 
putitc  13.14, 'Monterey,  California.  The  document  and  accompanying  '  ); 
putitc 13, 15, 'diskettes  are  held  by  Plvm  P.  Pndrus*  Cepartment  of  ' ')» 
PUtit< 13* IS. 'Operations  Research,  at  th*  Naval  Postgraduate  School.  ')» 
putit< 13.17.'  '  >; 

putxtt  13. 13. '  ' ">i 

put  it's  13*13.'  i  Press  RETURN  to  access  the  UMPIRE  section  i  '  >» 
put it<  13.20.'     !  and  to  o»«'ri  Play  I         '  '» 

reao<  d ') 

■?nd»  CsrriOble} 

PROCEDURE  CHECK  IT; 

'.Checks  ro  ?ee  whether  =>ame  is  a  resumption  of  a  previous  *am&.      If   so. 
then  boot  proeram  is  ferminat>?o  and  an  ^noicator  i«  passed  to  the  otain 
urogram  'Jia  a  chain  variable.  > 
■  >ar 

d  :  strine,  dd  :  char; 
bee  in 

ciearscreen; 

sotoxyC  25 . 1 0  > ; 

"•ritelnt    Is   the   ?am*»  to  be    a  resumption-  )* 

eotoxy<25» 1 1  >i 

Mr i tec  'of    a  preui ous  Play  (V  or  N>:    '  >; 
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•    readt  dd )  * 

if  <dd»'¥'  >  or  '(dd^'y''1  t-hen 
begin 

SETCUW.'.  'RES'^; 

exitkSTRRTUP^ 
end 
else  3ETCUW_(  'NRES'  > 
end*  < check  it; 

oegtn 

c  1  earsc  neen ;  or  aw  I ;  Or  3w2 ; 
setc ha  1  n<  'VTEHPOVtemro'  >; 
cneckit* 
•scribble* 
getnames; 
diski; 

rewrite  (  dataf  lie* 'TURNKEY!  :name,data'  )i 
for  i  :=  1  to  ■*  do 
begin 

datafile-*  :=  comPonentCil; 
put  (datat-ile) 
end* 
c  1  ose  <  datat" i  1  e#  1  ock  ? 
end.  <I startup > 
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PROGRAM  TEMPO* 

USES  wPPLESTUFF,  CHAINSTUPF.  MVSTIFF; 
■Chain  driver.  > 

Type 

forecast  =  packed  record 

name  :  string; 
yravail  :  iir;»aor; 
yrRaOstarts  :  integer; 
yrofRaO  :  integer  ; 
yrlRaOcost  :  integer; 
yr2Ra0cost  :  integer; 
yr3Raucost  :  inteser; 
ln^entor^t  :  int.<*?pr; 
tual  :  integer; 
wQcost  :  intewr. 
OPcost  :  integer; 
utlls  :  integer; 
eurlimit  :  integer; 
OPcostTTL  :  mW9»r; 
utilsTTL  :  integer; 
delete  :  integer; 
penalty  :  integer; 
unitbuy  :  integer; 
status  :  integer; 
sort  :  string 
end# 

systems  »  packed  array  CI.. 39]  of  forecast; 

temp  =  packed  record 

tyear  ,  tred  lef  t , tblul«f  ♦  •  » r  ^seenr. ,  t  ba<*spent » t  r  i  spent  >  tb  1  spent  * 
trrtjspent » tbrdsp<?nt  *  t  .numof «  y«.tem*  ,  f  roa » trob  *  trda » trdb  *  tooa  *  tbob « 
tbda*  tbdb*  tro « trd  *  trrrto  7  t.rrdd*  t  fro  r  tf  rd .  r.f  rrdo » tf rrdd* 
tbo » tbd  *  tbrdo • t brdd  > tf bo » tf bd » tf  brdo , tfbrdd  :  i nteeer ; 
tprT.r>tuiarcont  :  char; 

tredbudget * tb 1 ududget  :  arrayC1..29]  of  integer; 
'.players  :  arravf!..-*]  of  *.trin« 
end; 


'v>ar 

ded  : 

string; 

rs  : 

systems; 

bs  : 

systems; 

sys  : 

systems; 

year 

:  integer 

redbudget*  biuoudget  :  srnvi  El..  29]  if  tnte<M*f*j 

players  :  array  CI.. 4]  of  string; 

ma i nt' lag  :  000 lean; 

red left,  Oluleft  :  integer; 

ragseent*  oa^seent  :  integer: 

r\ spent*  0 i spent  :  integer; 

rrdseent*  Ordspent  :  integer; 

numot systems  :  integer; 

prtr  :  char; 

z  :  text; 

roa*rob#rda»rdb»boa»ooo#oda*bdb  :  integer; 

ro # rd * rrdo » rrdd > fro » f rn,i rrdo. frrdd  :  integer; 

oo#oa.»ordo.brdd>fbo»fbd*fbrdo.fbrdd  :  int.^«e>~; 
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warcom.  :  char, 


< * I NCLUOE  NP2 : BOTCH 1 . t  ext  > 

C  *  I  NCLUOE  THES 1 32 :  BOTCH  1 Q .  text,  > 

i SI NCLUOE  THESIS2: BOTCH IB. text > 

C  S I  NCLUOE  NP2:BOTCH2.text> 

{ SI NCLUOE  THESIS2: B0TCH20. t»xt> 

C  *  I  NCLUOE  THES  1 32 :  BOTCH2B .  text  ;■ 

':*INCLU0E  THESIS2:B0TCH3.text> 


PROCEDURE  MOINMENU  (person  :  «ruwr>i 

CThe  inam  w»nu.   Provide*  a  central  calling  point  from  which  all 
expenditure  decision*  originate*  and  from  which  all  pertinent 
information  obtained. > 
war 

selection  :  char;  ^uitflae  :  boolean: 
bee  in 

=uitflae  :=  false; 
repeat 

PUtitC33.WMOIN  MENU'). 

PUtitU8.6#'l...  STATUS  OF  =0RC5S  CURRENTLY  IN  INUENTORY' >; 

putit<19.8.'2.  ..STOTUS  OF  FOPCES  OUOILOBLE  BUT  NOT  IN  INVENTORY'  )s 

eut ltd 9, IB,' 3... CURRENT  RESEARCH  PNO  DEVELOPMENT  CONOIDOTES' >» 

put  1 1<  1 9  » 1 2 , '  4 . . .  I NTELL I GENCE/COUNTER I NTELL I GENCE  I NFORMOT  ION'  )  I 

eutitt 10.14, '5... CURRENT  9UDPETQRY/SYSTEMS  PMRCHOSE  STOTUS' >; 

PUtit<10.16,'8...QUIT  'MGKE  NO  FURTHER  BUDGET  DECISIONS  THIS  YEflR>')S 

writeln;writeln;writeln; 

write<  '  Enter  the  desired  option  number:  '  >; 

reaaX  select  ion); 

case  selection  of 

' 1 '  :  oestatusc  person ) ; 

'2'  :  austatusC  person >; 

'3   :  rdstatus*.  person ; » 

'4'  :  intelstatus(  person ^; 

'5'  :  current statust person), 

'8'  :  ^uitflae  :=  'rue; 

otherwise  help 
•?ndi 
until  ^uitflae- 
end*  Cmainmerw) 

PROCEDURE  STARTUP  C  person  :  strine  >; 

(  Initializes  the  eeneric  recoro  *v*  for  ">lcoal  use  Ds  players. > 
Dee  in 

if  person  =  player?.  CI  3 

then  sys  : ■  rs 
else  sys  :=  bs; 
end;  C  startup  > 

PROCEDURE  PLOYERONEi 

v HI  lows  znrnjBl    Dudeet.  decisions  for  playpr  t.   Updates  all  pertinent. 

variables  for  computation  of  winner  and  usaee  in  *ollowine  Play.  J 
Dee  in 

startup  <  p  1  ayers  i  l  ]  1 ; 
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urdate  (  p  1  ayers  CI]*  redbud^et  C  year  ]  ) * 
mainmenu  < elayersC 1  ]  >» 
print.  (playersCl]> 
end*  (.  p  1  ayerone} 

PROCEDURE  PLAYERTWO; 
CSee  Playerl  routine.  5 
begin 

startup  <;playersC2'J  >* 

update  (  p  1  ayerg  C  2  ]  *  b  1  ududget  C  year  ]  >  j 

etai nmeny  (  p1  asers  C 21 ) * 

print  (PlayersC2]> 
end  i  i p 1 avert mo > 

PROCEDURE  SftMEENO* 
(CI oses  pt i nt  erg . > 
begin 

clear-screen; 

if  NOT  ( prtr  =  '3')  then  clos»<z*lock 
end*  <9ameend> 


oegm 

randomize* 

lirETCUQUded;*- 
if  bed* 'RES'  then  seta 11 
else 
begin 

initialize; 
oihoplays; 
umpire 
end* 
mainflag  :=  false* 
repeat 

year  : =  year  +■  1 ; 
mityr; 
pi ayerone; 
p 1 ayertwo » 
yearend 
unt  i  1  nia  i nf 1 ag ; 
sameend 
end.  C tempo} 
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THE  FOLLOWING  :=iFr-;MFWTED  Donrcnupp  jc  pomoti  sn  awn  IH«PRTFD  IN  TH€  MAIN 
PROGRAH  AS  BATCH  1  USING  THE  COMPILER  'INCLUDE'  OPTION,  DUE  TO  FILE 
SIZE  CONSTRAINTS.  > 


SEGMENT  PROCEDURE  INITIALIZE* 
i  Initial  i zes  17  lueaeon  systems  us  in?  default  parameters; 
initializes  budgets  to  default  figures?  initial :zes 
year,  expenditure  "Enables  and  m.«nO*r   of  s*>«t#iiw} 

PROCEDURE  INITOA; 
oeem 

rs i.  13. name  :=  'OAl' ;rs[i3.yravail  :=  1  ;rsd  3 .  status  :  =  9; 
rsC13.yrRaOstarts  :=  9;rsCl3.yrot'RaO  :=  9; 
rsC13.yrlRa0cost  :=  9;rsU  3."-<r2RaO<:o?t  :=  9: 
rsC13.yr3RaOcost  :=  9;rsC 13. inventory  :=  49; 
rsC13.AGcost  :=  59;nsC  1 3.0Pcost  :=  39; 
rsC13.utils  :=  29;rsC13.Pur limit  :=  25; 
rsCl3.unitbuy  :=  9;r"*[i3.*orr  :=  '0Q'; 
rsC 13. delete  :=  9;rsC 13. penalty  :=  9; 
rsC13.0PcostTTL  :  =  <  rsC  1  3.0Pcost  ;iJ*  r?C  1  3.  inventory); 
rsC13.utilsTTL  :=  (  rsCi  3. uti  Is >KrsC  13.  inventory  .<; 
rsC23. name  :=  '0A2' ;rsr23.y*3«'ai  1  :=  ^;r«C 23.  status  :*  1; 
rsC23.yrRaOstarts  :=  1  jrsC23.^rn+kP%0  ."=9, 
rsC23.yrlRaOcost  :=  4Pf9;r?C23.y«'*2c,a0cost  :=  999; 
r*C23.yr3Ra0cost  :=  789 ;rsC23. inventory  :-   9i 
rsC23.AQcost  :=  39e,-r?[2].0Prost  -•=  17*5: 
rsC23.utils  :=  389;rsC23.Purli.mt  :=  15? 
rsC23.umtbuv  :-   9;rsC23.sort  :=*  'OP'; 
rsC23. delete  :=  9;rsC23. penalty  :=  9; 
rsC23.0PcostTTL  :=  <  r«J23.  OProst  >*<  rsC23.  inventory;; 
rsC23.utilsTTL  :=  (rsC23.utils  >*^rsC23.  inventory  >; 
rsC33.name  :=  '0A3'  ;rsC3"l.yr3vail  :=  8 ;rsC33. status  :=  1; 
rsC33.yrRaOstarts  :=  3;rs[33. yrof-RaO  :=  9; 
rsC33.yrlRaQcost  :*  S'98;rsC33.yr2Ra0cost  :=  1999; 
rsC33.yr3RaOcost  :=  899 ;rsC 3 3. inventors  :=  9; 
rsC33.AQcost  :=  299;rsC33.0Pcost  '.-   189; 
rsC33.utils  :=  258;rsC33.eurlimit  :=  15; 
r>C33.unitbuy  :=  8;r«C33.  -ort  :=  '^A'; 
rsC33. delete  :=  9 ;rsC33. penalty  :=  9; 
rsC33.0PcostT7L  :=  <  rs[33.0Pcost  >*<  rsC33.  inventory >; 
rsC33.uti IsTTL  :=  <  rsC33.uti Is )-KrsC33.  inventory ) 
*nd;  <!initoa> 

PROCEDURE  INITSET1CB; 
oesin 

rsC43.name  :=  '081'  ;r?C4l .  wr^v^i )  :  =■  1  ;rsC43.  status  :=  9; 
psC-i].'=^ftaOstarts  :=  9irsC43.yrofRaO  :-  9; 
rsC43.yr!Ra0cost  :=  9irs£4'].yr2'RaOco*.t  :~  A; 
rsC43.yriRa0cost  :=  9 ;rsC4 ]. inventory  :=  29; 
rsi43.AQcost  :=  79;r«[4"l.  OPrrost  :=  159: 
rsC43.utils  :=  129;rsC43.Purl  lrmt  :=  15; 
psC**3.unitbuy  :=  9;r«C4].?nrt  :=  'OB' ; 
rsC43. delete  :=  9;rsC43. penalty  :=  9; 
rsC4].0PcostTTL  :=  (  rsC-il  .OPros*.  >#<rsC43.  in*>entory  >; 
rsC4:.utilsTTL  :=  (. rsC43.ut ils: >*<rsC43.  inventory  >; 
rst53.name  :=  'OBlmod' ;rsC53.yr^vail  :=  3;i~>C53. status  :=  I; 
i~sC53.yrR30starts  :=  2;rsC53.  yrnfRaO  :=  9i 
rsC53.yrlRaOcost  :=  i89;r«C53. yr2Ra0co«t  :=  8; 
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rs£53.yr3RaQc©st   :=  9;rsC53.  inventory   :=  9j 

rsC53.wQcost    :=  39*r»C53.0Pc«wt   :=   129; 
rsC53.utils   :=   140irsC5].i»»jr limit   :=   15; 
rs£ 5 3. umtbuy   :3  9#r*C53.  sort   :=  'OB'; 
rsC53. delete   :=  9 ;rsC53. penalty   :=  9; 
rs  C  5  3 .  OPc  ost  TTL   :  *  <  rs  C  5  3 .  OPc  ost  >*<  rs  C  5  3 .  i  nventory  ;  ; 
rsC53.utilsTTL   :=  (r*C53.utils)*<  rsC53.  inventory  >; 
rsC63. name   :=    '082'  ;rsCS3.yravail    :=  2;r*C 8]. status   :=   1; 
rsC83.*rRaOstarts   :=   1 ; rs C S 3 . *ro+'RaG   :=  9; 
rsC83.yrlRaOcost   :=  699;rs[S3. vriRaDcost   :=  9; 
rsC63.yr3RaOcost   :=  9;rsCS3.  inventory   :=  '3; 
rsC63.wQcost   :=  75;rsC63.0Prost   :=  35; 
rsC63.utils   :=  40;rsCS3.Purliriut   :=  35; 
rsC63. umtbuy   :=  9;rsC63.sorT    :=  '09'; 
rsC63. delete   :=  9;rsCS3. penalty   :=  3; 
rsC 6 3. OPc ost TTL   :=>  < r*[S3.0Pcost  )*<  rsCS3.  inventory); 
rs-C63.utilsTTL   :=  <  rsC63.utils  >Krs[B3 .  inventory  > 
end;  <imtSET!ob> 

PROCEDURE  INITSET208; 
oesan 

rs£73. name   :=   '083'  ;rsC73.  vravai  1    :-  4;rsC73.  status   :=   1; 
rsC73.yrRaCstarts   :=  2;rsC73.yro+'RaO   :=  9; 
rsC73.yrlRaDcost   :=  500;rsf73. yr2Ra0cost   :=  990; 
rsC73.yr3RaQcost   :=  9 ;rsC 7 3. inventory   :=  8; 
rsC73.i3Gcost   :=   108;rsC73.OProst   ?*  59; 
rsC73.utils   :3  125;r"s£73.purlif*it   :=   15; 
rsC73.  umtbuy   :=  9;rsC73.sort   :=  '08'; 
rsC73. delete   :=  9;rsC73. penalty   :=  9; 
►-sC  7  3.  OPc  ost  TTL   :=  <  r*C71.0Pco*t)*<  rsC73.  inventory  >; 
rsC73.utilsTTL   :=  (  rs[73.uti Is  >*< rsC73. inventory )» 
rsC33. name  :*  '0B3mod' ;r?C93.yravai 1    :=  3;rsC33. status   :=   1; 
rsC83.yrRaOstarts   :=  2;rsC33.,-'rofRaO   :=  9; 
■~?C3].yrlRaQcost   :=  S98;rsC33.*r2Ra0cost   :=  9; 
rsC83.yr3RaGcost   :=  9;rsC33.  inventor**   :=  9; 
rsC33.wQcost   :=  89;rs[93. OPccm.   ••■=  75; 
rsC33.utils   :=  209 ;rsC 8 3. pur I i«it   :=   15; 
rs£83. umtbuy   :=  9;rsC33.sort    :-    '08': 
rsC83. delete   :=  3;rsC83. penalty   :=  9; 
rs C 3 3. GPc ost TTL   :=  < rsC 33. OPcost >*< rsC 3 3. inventory >; 
rsC83.uti IsTTL   :=  < rsC83.uti Is  ■*<rsC33. inventory >; 
rsC33.name   :=    '0B4' ;rs£93.Mr3vai 1    :=  5;r*[33. status    :=   1; 
rsC33.yrRaQstarts   :=  3;rsC93. aro^RaO   :=  9; 
rsC33.yrlRaOcost    :=  590;rsC93.yr2RaO':ost    r=  699; 
rsC93.*r3RaGcost    :=  9 ;rsC 9 3. inventory   :=  9; 
rsC33.fiucost   :=  75;r?C33.0Prost   :=  25: 
rsC33.utils   :=  75;rsC33.p«jrl  imit    :=  39; 
i-s[33.umtbuy   :=  3;rsC93. sort.   :=   '09'; 
rsi33. delete   :=  9;rsC33. penalty   :=   9; 
rs  C  3  3 .  OPc  est  TTL   :  =  '■ .  rs  C  9  3 .  OPcost  jH  r«  C  93  .  i  nvjentory  > ; 
rsC33.utilsTTL   :=  '  rsC33.utils)*<'  rs£33 .  inventory  > 
■?no;  CimtSET2ob> 

PROCEDURE  INITDfl; 

PROCEDURE  INITDPifiUX; 
Degin 

rsCl93.name  :=  ' DPI ' ;rsC 193. yravai 1  :=  1 ;rsC 193. status  :=  9; 
rsC193.yrRaOstarts  :=  9;rsC103. yrofRaO  :-   9; 
rsCl83.yriRaOcost  :=  9;rsC 193. yrSRaOcost  :=  9; 
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rsC10].yr3RaOcost  :=  0irsC103.  inventory   :=  28* 
rsC10].Pi3cost   :=   t88ir*C183.0Pf:o*t   ?=  S0; 
rsC10].utils   :=  50;rsC103.Purlimit   :=  25; 
r~sC103.unn.buy  :=  9;rsC101.sort   ;  =   'OP'  ; 
rsC103. delete   :=  0;rsC 103. penalty  :=  0; 
<~sC103.OPcostTTL   :=  CrsC 103. OPcost  >**  rsC103.  inventory); 
rsC103.utilsTTl_  :=  < rsC103.uti hWrsCiei.  inventors >; 
rsC113.name   :-   'DPlmod' ;rsCtl 3.vravail    :-  2;rsCll 3. status   :=  1 
end;  <  i  n  i  tdaaux  > 

see  in 

mitdaaux; 

rsC113.yrRa0starts   :=  l;rsCl  H.^rofRaO   :=  0; 
rsC113.yrlRa0cost  :»  208;rsC113.,-'r2RaQcost   :=  0# 
rsCH3.yr3Ra0cost   :=  0;rsCl  1 3.  inventory  :=  0; 
rsC113.fi0cost  :=  50;rsC113.GPcost   :=  88j 
rsCH3.ut.ils   :=  90;rsU  13.pvrl  lmit   :=  25; 
rsC113.umtbuy  :=  0;rsCll  3. sort   :=   'OP'; 
rsC 11 3. delete   :=  0;rsC 11 3. penalty  :=  0; 
rsC  113.  OPcost TTL   : *  <  rsC  1 1 3 .  OPcost  )*<  rsC  1 1 3 .  inventory  > ; 
rsC113.utilsTTL   :=  <r*«CH].utils)*<  rsCl  1 3.  inventory  >; 
rsC123. name   :-   'DP2' ;rsC123.yravail    :=  5;rsC 123. status   :=   1; 
r?Cl23.yrftaOsr.arts   :=  2;rsC  !23.yrofRaO   ;=  0; 
rsC123.*rlRaOcost   :=  300;rsC123.>-H»2RaOcost   :=  900; 
rsCl23.yr3Ra0cost   :»  808;r«iC12"!.  inventory  :=  0; 
rsC123.SQcost  :=  50 ;rsC 123. OPcost   :=  40; 
rsC123.ut.ils  :=  120;rsC123.evr'  imit   :=■  20; 
rsC123.unitbuy  :=  9;rsC123.sort   :=   'DP'; 
rsC123. delete  :=  0;rsC 123. penalty   :=  0; 
rsC123.GPcostTTL   :»  <  rsC  123.  OPcost  )*<rsC  123. inventory )s 
rsC123.utilsTTL   :=  (  rsC123.utils)*< rsC 123. inventory ;; 
rsC!33. name   :-  '0P3' ;rsC133.yr3vai]    :=  5 ;rsC 133. status   :=   1; 
rsC133.=»rftaOstarts   :=  3;rsC  133.yro+"RaP   :=  0; 
rsC133.*rlRa0cost   :=   1008 ttnt  131. yr2Ra0co«t   :=   1500; 
rsC  133 . yr3Ra0co*t   :=  8srsC  133.  inventory  s  =  0; 
rsC133.PQcost   :=  S0;rsC 133. OPcost    :=  20; 
rsCl33.utils   :=  90;rsC  133. Purl  »mit   ;=  25; 
rsCl33.unitbuy   :=  0;rsC133.sort   :=   'DP' J 
rsC133. delete   :=  0;rsC 133. penalty   :=  >*x 
rsC133.0PcostTTL   :=  <>sC  133. OPcost  >*<  rsC  133.  inventory ); 
rsCl33.utilsTTL    s=  <  rsC  133. utils  >*<  r«C  133.  inventory  ) 
end;  <initda> 

PROCEDURE   INITD8; 

PROCEDURE   INI70BPUX; 
nes»m 

rsC  1*3. name   :=   '0Bt';rsCt43.yrav*il    :=   UrsC  !*].  status   :=  0; 
rsCl*l.vrftaOstarts   :=  0insC141.yrofRaD    :=  0; 
rsC!*j. yrlRaDcost   ;*«0;r*U  43. vr^P^Ocost    :=  0; 
rsC14].yr3Ra0cost   :=  0;rsC14].  inventor"-    :=    100; 
i~sCi*].£lQcost   :=  -10 ;rs£  1*3. OPcost    :=  20; 
f*sCl*3.utils   :=   15;rsCl*3.Purlimit   :=  25; 
<~sCl*3.unitbuy   :=  9»rsC143.sort    :=  '05'; 
rsC143. delete   :=  0;rsC 14] .penalty   :=  0; 
i~sC143.GPcostTTL   :=  <  r<t  1*3. OPcost  >*<  r«C  143.  inventory  >; 
rsC143.utilsTTL   :=  « rsC 143. ut lis )*< rsC 143. inventory > 
end;  C  i  n  i  toba< «  > 

begin 

inttooaux; 

rsC  153. name   :=   'D82'  ;rsU53.yrauail    :=  3 ;rcC  153.  status   :=   1; 
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rsC: 

SI. 

r-stJ 

53. 

r-sC  3 

.51. 

rsCJ 

.53. 

r-sCl 

51. 

nsc: 

153. 

r»Cl 

.51. 

rs£; 

153. 

rsC 

151. 

rsC. 

LSI. 

rsC 

163. 

rsC 

163. 

rsC 

LSI. 

rsC 

161. 

r-sC 

183. 

rsC 

163. 

rsC 

L63. 

r-sC 

163. 

rsC 

163. 

r«E 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

rsC 

173. 

end; 

yrRaOstarts    :  =   1 ;  rs  C 1 5  3 .  yrofRaO   :  *  0 ; 

yrlRaOcost   :=  •*00;r«Cl5'!.-<r2RaOcost    :=  400; 

yriRaOeost   :=  J3;rsC153.  inventory   :=  0# 

AQcost   :=  90;r~?C  153.  OPcost   :=  70; 

utils   :=   100;rsC153.Purlimit   :=  55; 

umtbuy   :=  0;rsC153.<=ort   :=■  '09'; 

delete   :=  0;rsC  153. penalty   :=  0; 

OPcostTTL   :=  '■.  r*C151  .OPcost )*<  rsC  153 .  inventory;; 

utilsTTL   :»  '. r-sC  153. uti Is >«<rsC  153.  inventory ;■; 

name   :=  '083'  ;rsC153.yravail    r=  3;r? .CI 63. status   :  = 

yrRaOstarts   :=  2;rsC163.yrofRaO   :=  0; 

yrlRaOcost   r=  1000;rsU63.vr2RaOcost   :=  0; 

yr3Ra0cost   :a  9;rsC163.  inventory   :=  8; 

flQcost   :=   :00;rsC163.OP*-o*t   :=  50; 

utils   :=  200 ;rsC  163. t»jr limit   :=  25; 

umtbuy  :=  0;rsC163.  sort   :=   '08'; 

delete  :=  £;rsC 163. penalty  :=  0; 

OPcostTTL  :=  (r?C163  .OPcost  )*i  rsC163.  inventory.); 

utilsTTL  :=  (rsC163. utils )*<rsC163.  inventory  ,•; 

name  :=  '094'  ;rsC173.yra*->ail  :=  5 ;rs£  173.  status  :- 

yrRaOstarts  :=  3;rsC17"!.yrofRaO  :=  0; 

yrlRaOcost  :=  60A;rsC  173. yr2Ra0cost  :=  600; 

yr3RaQcost  :=  3;rsC173. inventory  :=  0; 
.PGcost  :»  1 50 :rs CI 73.  OPcost  :=*  225; 

utils  :»  400;rsC173.Purlimit  :=  10; 

umtbuy  :=  0;rsC  173.  sort.   :=    'OB'; 
.delete   :*  0;rsC 173. penalty  :=  0; 
.OPcostTTL   :=  < rsC  173. OPcost  J+'rs CI 73.  inventory  >; 
.utilsTTL   :=  <rsCl73.utils>*<nsCl71. inventory ); 


l; 


PROCEDURE  INITGEHRLOOTO; 
eesm 

bs  :=  rs; 
redbudsetC13 
r»edbudsetC4  3 
redbudeetC73 
redbudsetCU33 
redbuaeet  C 1 1 3 
redbudsetC143 
redbudsetC173 
i~edbua«>etC203 
b  1  uouawt  :  =  reabuaset 
ra<»spent  :=  £; 
oa^spent  :=  3;riseent 
numof systems  : =  \ 7 ; 
^ear  :=  0;warcont  :=  'N' 
end; 


=  9300;r?obuOsetC23 
=»  9200;redbudeetC53 
=  9100;redbua?etC93  : 
:=  9100; 

: =  9300 ; redfcudset C 1 2  3 
:=  9200 ;reabudeetC 153 
:=  91 00 ;reabuoeetC 183 
:=  9100; 


=  9600;r»«obud?etC33 
=  9100;reGbudeetI!63 
=  9100;ref!buosetC33 


=  9400; 

=  9190; 
=  9100; 


=  ':'600;redbt.idsetC133 
=  9100;reobudeetC163 
■  9100;redbuogetC193 


=  9«t00; 

=  9100; 
=  9100; 


=  0;oi spent   :-  0;rrr}<?pont   :=  ^;ordSPent   :=  y; 


<  imtgenrloata> 


oesin 

ini  toa;  imtset  lob;  initset2ob;initda;tnitdb;imtsenrl  data 
end;  (.  initialize} 
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CTH£  FOLLOWING  SEGMENTED  PROCEDURES  QRE  COMPILED  &NO  INSERTED  IN  THE  MAIN 
PRQGftfiM  AS  BATCH  lfi  USING  THE  COMPILER  "INCLUDE"  OPTION,  DUE  TO  FILE 
SIZE  CONSTRAINTS. > 

SEGMENT  PROCEDURE  INTELSTflTUS<  **r*m  :    string); 

'Accessed  from  nvain  *M?r\K>.      Provide*  statu?  of  current,  intelligence. 
Allows  the  procurement  of  future  lntellioenri?,  r.ne  diselav  of 
ac=*jired  intelligence,  and  the  scrap^ine  of  all  r<?<*jests  budgeted 
for  the  current  year»> 

lflae  :  boolean;  d  :  c)^n 

PROCEDURE  RIO INFO* 
y>air 

e  :  char; 

PROCEDURE  BLUERIQ; 
be^in 

if  Cfbo  *  109)  or  Cfbo  =  -109)  then 
Deem 

fbo:*fbo-199*  bi^*»ent:=di«*ent-100;   bluleft:=bluleft+l09 
end* 
if  (fbd  =  109)  or  (fbd  =  -t09)  then 
beein 

fbd:=fbd-199;  biseent:=bise«»nt-109;   bluleft:=blule+t+109 
end* 
if  ( fbrdo  =•  100)  or  <  fbrdo  ■  -109)  then 
bee  in 

fbrdo:=fbrdo-l09*   bi?eent:=bis*»enf.-109;   bluleft:=oluleft+109 
end; 
if  ',  fbroo;  =  109^  or  <  f brdd  =  -t09)  then 
beein 

f brad:  -^r^i- 1 9« ;   b i  *f">r>r. :  =b i  «*>ent- 1 09 *   b  1  u  1  eft:  =b  1  u  1  ef  t+1 09 
end; 
if  (fro  ■  -209)  or  <  fro  3  -19^>  then 
beein 

fro:=fro+2«9;  bt«e*»nt:=Hi«eent-':,«9;  oluleft:=bluleft+209 
end* 
if   ( f rd  *  -200  ^   or  (frd  ■  -109'   then 
bee  in 

frd:=fra+209;   oi=pent:=biSPent-290*   bluleft:=bluleft+209 
ena* 
if  i,  f rrdo   =  -200)  or  ( frrrio  =  -« 99>   then 
bee  in 

frrao:=frrrjcH>2*0;   bi  spent:  *bi«»w»nt-290*'   bluleft:  =olulef t+209 
end; 
if  (  f i-rda  »  -209)  or  (frrrid   -  -1^0^  then 
besm 

frrdd:=frrod+209;   Di?e*»nt:-=oi«pent-200:   bluleft:=bluleft+200 
end 
*r><li  Cbi'iend} 

PROCEDURE  REDRIO; 
Dee  in 

if  (fro    ~    100.)  or  *  i'm    =  -!fi0>  th#n 
Deem 

f ro :  =f «~o- 1 89 ;   ri  spent  :SBrief»ent.—!  99*    roolef t:=redlef t-^109 
<?nd; 
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if  (fr*l  -   IW>  or  <  frd  =  —1<30>  then 
bee  in 

+"'rd:=*"rd-108i   rispent:=r2SP€nT.-l*8:   redleft:=redle+"t+100 
end; 
if  Cfrrdo  =   tP*0"J  or  '  f rrdo  =  -188.1  then 
beein 

trrdo:=frrdo-100f   ri spent :=ri spent- 100;   redlefts«re<il(rPt*t8® 
<?nd; 
if  (frrdd  =   100)  or  (frrdd  =  -188)  then 
beem 

frrdd:=+>rdd-100;  r*i*pent:=ri  spent- 108;  red 1 eft :=red left* 100 
end* 
if  Cfbo  =  -200  >  or  <fbo  =  -)08>  then 
Deem 

ft»s»fbo+288*  rn  spent:  =ri spent -?W;   redleft:=redleft+200 
end; 
if  (,  f bd  =  -280  >  nr  ( fbd  *  -100)  then 

t'bd:=+"'bd+200»   ri  spent.  :=r:spei">t-280;   >~edleft:=redleft+200 
■end; 
if  (fbrdo  =  -200)  or  < f brdo  *  -108)  then 
beein 

fbrdO5»fbrdo+20€»s   rispent  :=rispen?.-200;   redleft:=redleft*288 
end; 
if  <  f brdd  *  -288^  or  (fbrdd  =  -180.')  then 
beein 

f brdd:  =fbrdd+208;  r :  spent:  =r  l  SPent-288;   redl ef t:  =redl  ef  t-<-288 
end 
end;  < redr id> 


Dee  in 

if  person  =  Player«Cl]  then  redrid 
else  bluerid; 

c learscreen; 

Putit<  i5,10,'&LL  I NTELL!  PENCE 'CniJNTEP  INTELLIGENCE  PROCUREMENTS'  >i 

PUtit< 15,11,'         HflME  9FEN  CANCELLED  FOR  THE  VEPR. ' >; 

eutit< 15,13,'  Pros'?  oPTl.iRM  *.0   Continue .>'  >s 

read<  e  -' 
ena;  i  ridinfo> 

PROCEDURE  BUY INFO; 
■jar 

*  :  char; 

PROCEDURE  8UVMENU; 
<.<%r 

f   :    char; 

PROCEDURE  OOITRED; 

procedure  aa» 

beem 

if   (  fro»108>  or  '  fro=-!i*0'>   then 
bee  in 

c learscreen; 

eutit<!8»18,-'PJN0IM8  POP  ^TS   ITEM  HAS  RLPEROV  BEEN  PR0UIDED' 

put  iu  18,11  .'  P^o-zt   pi=7ijrn  to  Continue;' '  )» 

read*!  d  > » 
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ent. '  ); 


>i 


ent«  '  > ; 


ent.  '  >i 


ex  i  t<  buyroenu  > 
end; 

fro:=fro-»-t00;   cv<*pent;=ri'3Pent-'-100:   i~edleft:=redleft-l08* 

putit<  12*10* 'Vou  have  .*ust  allowed  5100  for  intelligence  procurer 

putit<  12*11*'  'Pre«.?  RETURN  to  Continue.^  >i 

rearj<  d  ) 
end*  Caa:> 


PROCEDURE  BR; 
begin 

if  <frd»l00>  or  <frd*-l00,>  then 
begin 

clearscreen* 

PUtit<lS»10»'FUN07N8  FOR  n+TS   ITEM  HAS  OLREBOV  BEEN  PROUIDED' 

putit<  16*1!*'  <Pr»^<-.  RETURN  no  Continues' >; 

en  t<  buvmenu  ) 
end; 
frdj«frd+l90;  ris*ent:*risi»ent-M00>  redlefts*redleft-180* 

i:lear«creen; 

putiu  12*t0*'Vou  have  just  allot ert  S"t<^  +"or  intelligence  procure* 

putitt 12*11*'  <P-e*s  RETURN  to  Continued  >; 

read<  d > 
end*  tbb'J 


PROCEDURE  CC; 
oegin 

if  (frrdoat00>  or  <! f rrdo*-t 00 >  »nen 
begin 

•»utit<l6»10». 'FUNDING  FOP  THIS  ITEM  HAS  QLREPDV  BEEN  PROUIDED' 

PUtit<lS*ll*'         'Pr^^-s  PETURN  to  Continues' >s 

reacKd)* 

exit<  busmenu ) 
end* 
frrdO5"fn,»do+100s   i~i-*pentT=i»i<spant-»-l00;   redle*"^:=redlet"'t-liEi0; 
cleanser pen; 
putitt 12*10* 'Vou  have  just    alloted  S1R9  for   intelligence  procure*"* 

PUtit<  12*11*'  'Pr?**.   RETURN   to   Continue;' ); 

read<  d ) 
end*  ice."'- 


PROCEDURE  00 ; 
begin 

if  '+>rod=i00;  or  '  f  rrdd*— 1 00  >  then 
begin 

clear^creens 

putiu  1S*10*'C>1NOIN0  =0R   THIS    ITEM  HAS  ALREflDV  3EEN  PROUIDED' 

put 1 1<  16*  1 1  *  '  ( Pt~P*  =i   PETURN   to  Cent  i nue >'  > ; 
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ent. '  >; 


read<  d )  ; 

VH I r ■<  buvmenv  > 
end* 
frrdd:=fn-od+100*   >- 1  *  pent  :-=>»i  spent*  109*   nedieft:=ned left- 100; 
clearscreen; 
f»otir.(  l2>10»'Vou  haue  just   Piloted  ri09  for  intelligence  procure** 

putit<  12*11*'  'Pr^ss  RETURN  to  Continue;'  >; 

read<  d ) 
end*  f.  duf> 

PROCEDURE  EE; 
begin 

if  <fbo=-200>  or  (fbo=-109>  then 
begin 

clear*s.cr*9r>i 

mjtitf.  16*  10* 'FUNDING  POR  THIS   ITEM  HAS  OLREP.OY  SEEN  PROVIDED' 
>; 

put it<  16*11*'  < Press  RETURN  to  Continued'* 

read<  d ) ; 
exit<  buymenu.) 
end* 
fbo:=fbo-200*  ri^Pent:=risPer*+?00*   reoleft:=redleft-209; 
clear-screen* 

p».ttit<  5,10,'Vou  have  Jmt  alloted  -J299  for  intel  1  i  gene  encounter  in 
tel 1 isence  procurement. ' ); 

putit<  13,11*'  'Pre*,*  RETURN  to  Continued  )* 

read<  d ) 
end*  (.&#■"> 

PROCEDURE  FF. 
begin 

if  <fbd»-200>  or  (fbd»-100>  then 
begin 

clearscre«»n; 

put.  J  t<  16*  10* 'FUNDING  POR  THIS   ITEM  HHS  QLRE&OV  SEEN  PROUIOED' 
;; 

putit< 16.11*'  <Pr*gg  RETURN  to  Continued  >» 

read<d); 
exit<buvmenu  > 
end* 
fbd:=t"bd-200*  r* spent:  =rispent-f209*   »~edleft:=redleft-c00* 
clearscreen; 

putit<5»i^»'Vou  have    <ust  Piloted   5200  for   intel lisenc encounter in 
tel 1 i gene  e  procurement . '  > * 

putitX  15*11*'  -'Press  RETURN  to  Continue;*'1* 

read<  d ) 
irxii  *'ff"i 

PROCEDURE  86; 
oegin 

if  «  fbrdo=-200  >  or  •'.  *"brno=-i  00  ">  then 
begin 

clearscreen; 

putit( 16,10* FUNOING  FOR   THIS    ITEM  HAS  3LPEP0V   BEEN  PROVIDED' 
>; 

put i*< 16*11*'  <Pre«s  RETURN  to  Continue/'); 

read<  d ) ; 
exit<  buvmenu  ) 
end; 
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clear-screen* 

eutit<5»18»  Vou  have  just    piloted  s2%%  for   intel  li-?ence' counter  m 
te  1 1 1  eenc  9  eroc  ureroent .  '  >  * 

put  it<  15*11*'  <Pr*ss  RETURN  to  Continue/-'  >* 

read<  d ) 
end*  C  =*9> 

PROCEDURE  HH. 
besm 

if  (  ft*rdd»-288  >  or*  c  ftor*id*-t00>  then 

begirt 

c I  ear screen * 

PUtlt<16*10*'RJNOING  FHR  THIS   ITEH  H«S  PR.REGOV  SEEN  PROVIDED' 
)* 

eutitt  IS*  11  ►  '  Press   RETURN  to  Cont i nue > *  >* 

reacK  d  > ; 
exi  t<  buwwnu  j 
end* 
fbrad:=fbrdd-200*-   r:seent:^i*i»ent+£00i   red  left:  =red  let"  t-200  ; 
clearscreen; 

potitX  5#t0»'Vou  have  ju*t   piloted  $200  for  :ntei  l:-?enc  encounter  in 
te  1 1  i senc e  procurement. '  )» 

put  1 1<  1 5  *  1 1  * '  <  ?r<*«.  s   RETURN  to  Cont  l  nue> '  ) » 

read<  d ) 


besin 

case  f  of 

'a'»'ft' 

: 

--, 

-'b'*'B' 

• 

9B: 

'c'*'C 

• 

cc» 

'd'*'0' 

• 

no  j 

'e'  ,'E' 

: 

EE* 

f'.'F' 

: 

FF* 

'3' *'S' 

: 

93* 

'h','H' 

: 

HH; 

'«f','Q' 

: 

if  1*9 

:=  true 

end 

end* 

CdoifredJ 

PROCEDURE  OOITBLUE* 

PROCEDURE  QQi 
besin 

if  '*'bo=t00>  or  ( fbo»-'00*>  then 
De^in 

clearscregn* 

PUtlt<l6.10>'F»JNOIN8  FOR  rms    ITFm  ^jg  cii.REPDV  BEEN  PROUIDED' 

p*itit<  16*11*'  <Press  RETURN  to  Continue;-'  ;* 

reacK  d  > ; 

ex  1 t<  b'  i*-f»enu  ' 
end; 
fbo:=»'bo-»-lvi0j   biswit.'sbispent+lflS*   bluleft  :=olulet't-l«0* 
clearscreen* 
PUtit<  12*10* 'Vou  have  just   Piloted  5100  for   intellisence  procurem 


»nr.. 
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ent 


ent. 


PL' 1 1 t<  1 2  *  1 1 * '  Pr°*  ?   RETURN  to  Cent,  i  nue  > '  )  i 

r<?adr>  d  > 
end;  f a* J 


PROCEDURE  68; 
be9in 

if  <  th<3=\W>  or  <  fbd=-100>  then 
besin 

clearscreen; 

eutit<16*10*'F»JNOIN6  FOR  TWTS    ITEM  HfiS  ftLREPOV  BEEN  PROUIDED' 

putit<  IS* 11*'  <  Pre^«.   RETURN  to  Continues'  )i 

re*xKd>» 

exttC  bu'-wenu  > 
end* 
f  be :  =♦"  bd+ 1 00 j   b i « »ent :  =b  i « e«»nt +100;   b  1  u  1  eft :  =b  1  u  1  ef  t- 1 00  ; 
clearscreen: 
eutlt<  12*10* 'Vo»j  haw  ji.i«t   alloted  ?100  for   intelligence  procure* 

putit<  12*11,'  'Press   RETURN  to  Continued)* 

read( d ) 
end*  Cbb> 


PROCEDURE  Cd 
besin 

if  <fbrdo=100>  or  <fbrdO»-100>   then 
oesin 

ciear^creen* 

eutit*  1§#  18* 'FUNDING  FOR  THIS    ITEM  H«S  CtLREHOV  BEEN  PROUIDED' 

eut-it<  16*tl*'  -  Pf-«?««  pPTURN  to  Continue.^  >* 

reacK  d  ':• ; 

e~it(  buvmenu  > 
end; 
+' brdo:  =fhrdo+t 00 ;  bi =eent :  =bi «eent+  \ 09;  b I u  1  eft:  =bl ul eft- 1  OO* 
c  lear«creen; 
putitt 12*10*  Vou  have  just  piloted  51O0  for  intelligence  procurer 

PUtit<  12*11*'  'Pre**  RETURN  to  Continue^  >* 

read<  d ) 
end*  <>c> 


PROCEDURE  00; 
oe«iin 

if  ffbrdd*100>  or  '  v(3r**rt*-iGHSp  rhen 
be-ein 

C  lear=.rreen? 

f»utit<  16*10»'CUNOIN6  FOR  THIS  ITEM  HHS  QLREflDV  BEEN  PROUIDED' 

i»nt.it<  1*5*11*'  ''Pro<«  RETURN  to  Continue >'  ">» 

reao«  d  > ; 

ex  1 t<  ptj^fYtprMj  ) 

end* 

f  br«id:  ■fbrdd* '.  00 ;  hi  -seen* :  =h  \  'r-pprit. + i 00 ;  h  I  u  1  eft :  =b  1  u  1  eft- 1 00  * 

c  lear-rcreen ; 

putit(  12*10* '  Vou  have  iu-5f  alloted  ?100  for  mtel  licence  procurer 
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>?nT, .  '  >  i 

put i t< 12* 1 1 » '  <  ?r<>*  s  RETURN  to  Cont  l  nue  > '  >  * 

rpad<  d  ' 
■?nd»  <dd> 

PROCEDURE  EE> 

if  <ff*o*~290>  or  (fro*-10ft)  then 

beam 

PUtiMlSjldj-'PJNOING  FOR  THIS   ITEM  hmS  mJ.REPDV  BEEN  PROVIDED' 
)* 

putitf  1S.11,-'  'Pr<??.*   RETURN  to'  Continued'  >i 

r«»ad<  d  >  r 
*xi  t<  huvnenu  > 
end* 
t'ro:=fro-208;   bi<pprT.:=t-M«pem+2<tt!»;   blul*ftJ*bluleft-208» 
c  learscreen; 

i»tjtit<  5.19,'Vou  hat-p  ,i».f«tt    sllHt.od  ^2^8  *"or   int*ll  isenc encounter in 
t*l  liaencp   Rrncijrei»<?nT,.     >j 

(••ir.it-U5.il*'  ^ Press  RETURN  to  Continue;-' '  ># 

readt  d  > 
ena*  '*#»'■■ 

PROCEDURE  FF; 
beam 

if  <frd=»-20*>  or  C  fret— 109)  r.h«»r 
De9in 

'Tlear^creen; 

Putit.<:i6,10,'FUNOINS  FOR  THIS  ITEM  HAS  ALREfiOV  BEEN  PROUIDED' 
>» 

putit<  IBsM*'  <*r9*v   RETURN  to  Continued  >; 

read<  d ) ; 
•?xit<  buymenu  -• 
*ndi 
t>d:  =t>d-2t?0;  bi  spp"*r. :  =o i  =ppnt-»-200 ;  b  1  ul  e+"t:  =bl  ul  «?t"t-28&* 
clparscrppn; 

put.ir.(  5,iPt. 'You  have  just,  allots  J299  for  lntelli^ence'counterm 
tel  licence  procurement.  '  >s 

putit.fl5.il,'  {Press  RETURN  to  Continue/'  >i 

r*ad< o ) 
*nd*  fff> 

PROCEDURE  86* 

if  <  frrdo»-288  >  or  (  frrdos-lW^  then 
besm 

clearscreeni 
.  PUtit<16*l€f*'FUN0TN6  FOR  THIS   ITEM  HHS  ALREPDV  BEEN  PROUIDED' 

■'  i 

pi jt it's  16,11 ,'  Pi~p=.«   RETURN  to  Continued'); 

r<*za<  d  )  j 
*y  1 1<  buyroenu  » 
>?nd; 
frrdo:=frrr?o-200J   bi5Pent:=tn«pent+29w;   bluleft:=blulef t.-200; 
clearscrppn: 

putit.(  5,19, '  Vou  haue    iu«.t.    alloted  -5299  r"or  intei  li^ence^counterin 
tellisence  procurement.    ^; 

put it(  15,11,'  <P**oss  RETURN  to  Continued  )t 
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re  ad'.  '3  > 
end* 


\  *9  > 


PROCEDURE  HHi 
besin 

if  ( f rrdd==-206  J  or  (frrdd— 19€D  then 
besin 

clear«creen» 

evtiu  16.19.  RJN0IN6  FOR  THIS  ITEM  HQS  ALREfiOV  BEEN  PROUIDED' 
>J 

putitClS.ll.'  Press  RETURN  to  Continue>'  ;; 

nrad<d)# 
ex  1 t<  buymenu ) 
end* 
f rrdd: =f rrdd-209*  bi spent :=bi?pent+200;  blule+'t:=OlL«let"t-280; 

Put-iuS.tO.'Vou  nave  just.  alloted  $299  for  mtelliaenc encounter in 
te  1 1 1  eenc  e  pr  oc  ur ement .  '  )  • 

*>utit(  15.11 >'  'Pn?**   RETURN  to  Continue;' >; 

read<  d > 
end;  Chh> 


bee  in 

case  P  of 

'a'. '3' 

: 

wO; 

'b'.'B' 

: 

SB; 

'c'.'C 

• 

CCi 

'd','0' 

: 

DO; 

'e'.E' 

: 

EE» 

'f'.'F' 

• 

FF; 

'S*'*'S' 

• 

SS» 

'h','W 

• 

*H; 

Y.'Q' 

: 

lflas 

:=  true 

end 

end; 

tdottblue} 

i"  ore  es' 
Fore  es 
ft&O'  .'; 
R&G'  'J 


oesin 

clearscreen; 

eutitt 32*1 .'PURCHASE  OPTIONS'); 

putit( 18*3* 'A. . .Current  F<->rce  Strenstn  of  Enemy  Offensive  Forces')* 

put. i t<  IS .4. 'B. .  .Current  Force  ST.rpnsth  of  En-»my  Oefensiue  Forces'  ); 

putxt< IS*5»'C... Current  Offensive  Enemy  R&O  Projects')* 

putit<  lS.S.'O. .  .Current  Defensive  Enenv  R&C  Projects')* 

putiu  16.?. 'E. .  .Supply  Counteranr.pl  1 1 eence  Re«ardins»  Own  Offensive 

eutitt 16»3»'F. . .Supp'y  CounterintelliS"ence  Reearoin-e.  Own  Defensive 

PutitC  16.3. 'G. .  .SuppI'j •  Counter: nt el  1  leence  Reeardine.  Own  Offensive 

eutit<  1S»10*'H.  ..Suprly  Counterintel  1  leence  Resardins  Own  Defensive 

rutit<  16,11 *'Q. .  .Quit'  )» 

•utitC 13.14,- Intelligence  Cost  per  Item  <  Q   thru  D):  *t88' )*■ 
putit<  13*15.  CounT.erinteH  isence  Cost  t»er   Item  ^  E  thru  H):  S288' )* 
if  person  =  PlaversCl]  then 
besm 

?otoxy<  13*16  >*writeln<  'Qnnual  Defense  Budget  Remaining:  s"  .redl 
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eft  •' 

end 
else 
begin 

aotoxy<  i3#18)»writeln<  'Annual  Defense  Budget  Remaining:  S' ,blul 
eft) 

end; 
PUtltt IS, 19, "ENTER  OPTION  LETTFR;  ' >j 
wtov*  37*19 )i read<  f  > ; 
if  person  ■  PlayersCn  then  do i* red 
else  do  it-blue 
*nai  £buymenu} 

begin 

repeat 
buymenu  » 

unt.  i  1  t  f  1  as 
end;  <buVinfo> 

PROCEDURE  GETINPQ. 

'•ar 

e  :  char ip.*. op , op*o. i >c  .*  inte"erj 

PROCEDURE  LINEli 
begin 

if  person  =  PlayersCl]  then 
begin 

if  ro  =  -199  then 
begin 

put.itt  10*3, 'CIA  unable  to  breach  enemy  counterintelligence  ba 
rrier'  >i 

exit<  linel  > 
endi 
if  ro  =  190  th#n 
begin 
p  :  ■=  r^rOom  mod  200  s  p  :=  random  mod  200 » 
o  :=  ooa+bobi  op  :=  o-p;  op  :=  o+gs 
g©toxvk  10,9 )s 

writelrvC 'Total  enemy  offensive  utils  are  estimated  to  be  betw 
*en  '»opi'  and  ',og)i 

exit<  1  inel  > 
end; 
PUtlt<10,9.'     NO  INFORMATION  PROCURED') 
end 
else 
begin 

if  oo  =  -tO0  then 
begin 

putit< 10»3»'CTfl  un*bl*  to  breach  enpmy  counterintelligence  da 
?~r  i  *r '  / ; 

ev  1 1<  1 1  ne '  ? 
era; 
if   bo  *   100   '.hen 
begin 

p    :-   ^sndom   -nod    ?O0:    g    :=   random  rood   200: 
o    : =  roa+rob ;    op   : =  o— p ;    op   : =  o+g • 
»otov^  10 .3 ); 

iiir: telnX  'Total    enemy  of fens * ' «•  utils    are  estimated  to  oe  betw 
*en      .op.  '    ^nd   ''  »og  '<  j 
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e?;it<  1  inel  > 
end; 
PUtltX  10*9,'     NO  INFORMATION  PROCURED"  '> 
end 
end*  fli«#t.  3 

PROCEDURE  LIW-2* 

Oegin 

if  eerson  =  "layered!  th#n 
begin 

it"  rd  -  -100  then 
oegm 

putitX  18»12*'CIQ  unabl*  to  bre^cn  *nemv  countermtei  1  igence  b 
arri.?r'  >* 

exit<  1  tne? ') 
ena; 
it"  rd  =  10*  then 
oegin 

p  :=  random  »iod  288*  a  r=  random  i«od  290* 
o  :3  bda-^bdb;  op  :=  o-o;  o^  :■  o-h?; 
?otoxy<  10#t2>i 

uirit.i»in< 'Total  ?•■»««  defer**  ve  utils  are  estimated  to  be  betw 
een  '  ,op»'  and  '»oO» 

erit<  lir^"1 
end* 
put it< 18,12*'     NO  I NFOPHGT TON  PROCURED' > 
end 
else 
begin 

if  bd  =  -188  thw 
begin 

i»utit.<  18*12* 'CIR  >.wabie  to  broach  enemy  counterintelligence  b 
arrier'  'a 

e*it<  1  ine^ 
eno; 
if  od  =  10*  then 
begin 

p  ;s  random  inod  208 *  <*  *=  random  >noo  209 » 
o  :  =  rda-n-ob ;  op  :  =  o-p ;  o^  :  =  0+* ; 
aotoyy< 18*12>; 

mritelrK 'Total  *nem«-»  defend i ue  utils  are  estimated  to  be  setw 
een  '.op.   and  ',og->; 

exit<  ]  ine2^' 
end; 
PUtitC  10.12* '     NO  INFORMATION  PROCURED' > 
end 
end;  <"ljne2> 

PROCEDURE  LINES* 
oegm 

C   !  =  -8  i 

l  f  per«on  =  p  1  ayer«  CI]  t  h«»n 
begin 

if  rrdo  -   —188  then 
begin 

putit< 18*15* 'CIS  unable  'o  crearh  enemy  counterintelligence  o 
arrier'  '» 

■?*>n.  t<  1 1  ne-3  '> 
»nd  j 
i  f  rroo  -  1 00  then 
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for   n—   1    t*3  numof •?y*t.#in«i  t-to 

it"  '.b^Ci  ].st<3ti.rs=2>  and  (b«Ci  ].delete«0>  T,hpn 
l f  <  bsC  i  ] .  «or*=' OQ'  5  or  <  b<?C  i  3 .  -ort='  OB'  >   i.h«pn 
c:=c+t  i 
?otox<-»<  10,  t5>; 

iuri te I n< 'Reports    indirsrt*  *nemH  currently  fundirw   '  *<*'    offen 
sivNt  R&D  ^ojwt.?''  ); 

exit,<  1  in*3) 
•?nd; 
PUt i  t< 1 0# 1 5* '  NO    I NFOPMOT T ON   PROCURED ' > 

•flse 
be*  in 

if  ordo  =  -t00  then 
beein 

p».itit(  19*15, 'CIQ  unable  to  breacn  erwms  counterintelligence  b 
arrier'  )i 

exi  tX  1 1  n<»3 ) 
ena; 
if  ordo  ■  100  then 
Deem 

for  i :  ■  I  to  mi«of*i«*st  em«  do 

if  (r*sCi].«t«tu«»2)  and  (rsC  i  3. deleted )  then 
tf<r*til.^orr.»'Oft'^  or  '  r^C  i  3 .  sort*' OB'  >  then 
c:*r+ii 

90tOXV(  10.15)5 

mriteln< 'Reports   indicate  »n^n«*  currently  fundine  ' rC*'   offen 
•3 ive  R&D  project*'  >» 

exit<  1  Ln*3> 

*nd» 
putat<  10»15»'  NO   INFORMATION  PROCURED') 

end 
•?nd;  Hme3> 

PROCEDURE  LINE4; 
be*>m 
c    :=  y; 

it  person  =  pl-ayersCl]    then 
De-am 

if   rrdd  ■  -100  t.h»n 
beem 

p'jtit<  10»1P»'CTP  unable  ro  breach  »nemv  counterintelligence  o 
arrier'  >; 

PXitX 1 ine4) 

if  ordd  =  19"?  then 
De-am 

for  i:=  l  to  mwnof  Systems  on 

if  <b*Ci].4tatu*»2>  3rd  '  bsC ; ]. delete=0)  then 
i f<  os£  i  ] .  sort*'  DP'  >  o>~  <  bsC  i  3 .  sort-' 08'  J  then 
c:=c+l ; 
aotovy<  18.  IP); 

wrtteinX  'Reports  indicate  *?nemv  currently  fundi n*  '#c*'  dafen 
siw*»  RtiO  projects' ^j 

ex  i  ♦.<  1 1  ne**  J 
•?ndi 
put i  tX  1 0  , 18 • '     ^O  I NFORMOT I ON  PROCURED ' ) 
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.end 

•?lse 

begin 

if  brdd  =  -t<30  then 
begin 

putit< 18.18. 'CIO  >.in.3ble  to  breach  enemy,  counterintelligence  b 
arrier'  >* 

ev  1 1<  1 1  ne4  > 
end; 
if  brdd  =  18*  then 
beg  in 

for  is«  1  to  n»jwof*"*?-tew»  do 

if  <rg£i].-itatu«.=2V|  and  • rsCi  1. delete8** )  'hen 
i  f<  rgC  i  3 .  ^nrts-  riO'  >  or  '  rsC  i  ] .  sorts'  08'  )  then 
c:=c+l; 
gotoxv*  18*l8>f 

■•mi telrK 'Reports    indicate  enemy  currently  funding   '*c*'    de+'*n 
*.iue  R&0  project*.' >; 

exit<  I  me4  > 
end* 
eut  i t<  18*  tS* '  r-tO    T  NFQRHflT  T  ON  PROCURED'  > 

end 
end*  Oine4"> 


begin 

cleargcreen* 

eutit< 26*3. 'CURRENT  INTELLIGENCE  REPPRTSs'>i 

eutit(5.8.'ENEMV  OFFENSIVE  FORCES  INFORMQTIONt '  ); 

linel* 

PUtit<5*ll.'ENEMV  DEFENSIVE  FORCES    INcriRMOTIONi  '  >s__ 

1 ine2* 

eutm5*14,'ENEMY   OFFENSIVE   P*-D    INFOPMOTT0N: '  >j 

line3* 

Putitc5*l?."ENFMV  OEFENSI-UE  R*<0  INF0RMPT10N:  ■'  )  = 

1 1  ne>*  i 

put it< 27.21 *'<Preg5  RETURN   to  Continue^  >: 

reaat  e  > 
*r\Qi  !  ?et  i  n*'o  > 

begin 

lflag  :=  false; 
repeat 

C 1  ear screen* 

PutiU  8.5* 'SELECT  INTELLIGENCE  OPTT ON:  '  >; 

eutit<  13»8»'fl. .  .Receive  Pre».nou<*lH  Purchased  Intelligence  Information-  ) 

putitt  13* t 1 *'R. . .Purchase  Intel  1  ?  •=»»nce'Counter:ntel  1  igence  Information' 

*>utitc  13.13*  C. .. Cancel  P' 1  Intel  1 1 gene encounter intelligence  Reguest-s' ) 

eutit<  13*  14*  '  ?or   the  Current  Vear'  ); 

put ltv  13*16*  'Q. .  .Quit'  '>; 
?otoxy<  3?  *5  >  ;reaot  d  >  * 
case   d  of 

'a'*' ft"  :  ?etinf-i; 
'b'  *  8'  :  bvwinfo; 
c'  . ' C  :  ridinfo; 
'g*  ,  ')•    :  iflag  :=  rrue. 
otherwise  nelp 
end; 
until  iflag 
rno ;  ■' : nt.P  1  statu*. > 
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SEGMENT  PROCEDURE  INITVRj 

<-C-&i  led  annually.   Updates  intelligence  and  expenditure  vanaoles. 
Computes  projected  total  systems  operatin*  cost's  Per  upconine  '^ear. 
Shelves  undecided  ^ew  R&O  systems  fmm  previous  year,  and  determines 
she  lu  ins*  penalties.   Decrements  new  budget  bv  twice  previous  budset 
overrun.   Introduces  random  draw  to  adji.-st  expected  budset  and  ft&O 
f isures. > 

•jar 

jj*i*<a»uniform»deuiation  :  integer; 

FUNCTION  MINIHUM  :  inteser; 
oes<in 

if  a  <=  309  then  minimum  :=  ^ 
else  minimum  :=  300 
endi  tmimmum} 

PROCEDURE  RINITROi 
->ar 

j*  earlier  :  inteser; 

PROCEDURE  wSSUME* 
oesun 

if  rsCj]. status  3  2  th»n 
besin 

if  r«.Cj  1 . •=»mfR30  «  ?.    f^en 
besm 

rs  C  j  1 .  yr 3RaDc  o«t :  =r«  C  J 1 .  vr?R  aOc  o«  t  +<  50* j  j  ; * 
rrdseent   :=  rrdseerrt  ♦  rsCj3.yr3RaOrost* 
redleft    :=  redWt  -  rsCi"!.yr3Ra0cnst 
end* 
if  rsCjD.yrofRaO   ■   1    then 
besin 

rsCj].yr2Ra0cost:=r<iCj].yr?Ra0cost.-K  50+jj  >; 
rrdseent   :=  rrdSPPWt  +  rs[j  ].  yriPaOcost; 
redlpft   :=  redleft  -  >~sCj  3.yr?Ra0cost 
end 
*nd 
end*  C3s«nme> 

bee  in 

earlier   :=  --tear*  -  l; 
for   j    :=   1    to  numof systems  do 
beein 

if  (  rsC-j  3 . yrRaOstarts  <=  earlier'  ano  <  r<  C  j  1 .  status  =  1)  tnen 
if  rsCjl. delete  =  9  then 
Deem 

rsCj]. status   :=  3* 
rsCo  J.  yrauai  1    :=  i~sCj  ].  yrauai  1    +■  \ 
end* 
if  ( rsCJ 3 . yrRaOstarts  <*  »arlier)   ^nd  (  rsC-il. status  =  3;>  then 
if  rs C j 1. delete  =  A  then 
beem 

rsCj  1  .yrauai  I    :=  ns{.i].yravai  1    *   1  » 
if  rsCj l.yrofPaO  ■  £   then  rsCjl.  penalty   :=  3; 
if  fsCjl.yrofRaO  =   !    then 
oesin 

*    ;  =   r*r£  jl.'-«rlR^nr««t  j 
rsCj 3. penalty   :=  ininimum 
era; 
if  rsCil.yrofRaO   ■  2   then 
beein 

«i  :=  rsCJ3.yr2RaGcost* 
rsCj  1 .  p*nal  ty    •=   iftimmr'm 

end 
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-?nd; 
if  (r^C^.yrRaOstarr.s  <»  earlier?   and  (rsCJ 3. status  =  2j  then 
itN  rsC  j  ].  delete  ■  3  then 
bee  in 

rsC j  3 .  ymfRaO   ?•*  1*5  C  j  1 .  yrof R =»0  +t ; 
if  rsCJ3.yrauail   ■  year  then  rsCJ3.  status   :3  9; 
assume 
*nd 
end 
end;  <!rimtr*f> 

PROCEDURE   SINITRDi 
uar 

j  *   *ar  t  ier  :    1  nteeer » 

PROCEDURE  wSSUHEi 
bes-m 

if  bsCJ 3. status  *  2  'hen 
besin 

if  ssCj3.yrof'P*0  ■  2  then 
besin 

bs C  J  3 .  yrSfiaOcost :  «bs  C •  i  1 .  yr3RaPc ost-w  5<3*jvi  ) ; 
brdspent.   :=  brd«.pent  *  bsCj].yr7Ra0cost; 
bluleft   :=  bluleft  -  bsCi  J.^rTPaOcnst 
»nd# 
if  OsCj3.yrofRaO  =   1    ther> 
besin 

bsC.j3.yr2R30ro«t:=b«C.i].yr2R30<-osT.-M  59*JJ  >; 
brdseent   :=  brdspent  +  osC-i  J.y^R^Ocost; 
bluleft   :  =  blule+>    -  *<*Zj  3. «~2R*ficost 
»nd 
*nd 
end*  <  assume"* 

cegin 

e  ar  1  1  er  :  =  -^ear  -  t ; 
for  j  :=  I  to  numofsystems  do 
besm 

if  (bsCJ3.yrRa0st*rt^  <•=  *»*»i  ?«•»»>  and  <  bsC.il. status  =  t)  then 
if  bs C j  1 . de I et p  =  0  then 

bsCjl.statu-?.  :=  7; 
bsC J 3 . yravai  1  :■=  bsCJ3.yrauail  *■  1 
•?nd> 
if  <dsCj3.vrPaO-;T3rt*  /=  earlier)  and  <bsCJ3. status  =  3)  then 
if  bsC-j  3.  delete  =  9  then 
besin 

bsC J  3 . yrauail  :=  bsC  i 3 .  yravai  1  *•  1  * 
if  bsC J  3 . yrof RaD  =  *  then  bsC J  3. penalty  :=  #* 
if  bs£j3-urofRaG  -   '  then 
bee  in 

<*  :  =  bsC  .j  1 .  yr  1 P  af)<"  ost ; 
bsC j 3. penalty  :=  minimum 
*nd; 
if  bsCj].yrofRaO  =  2  then 

*   :=  bsCJ3.yr2RaOcosti 
bsCJ3. penalty  :=  minimum 
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end; 
if  (bsCJ].yrRaDstart,<5  <*  earli<w»>  and  (b*CJ].4t-atus  *  2)  then 
if  bsCj]. delete  =  y  then 
beam 

bsCjJ.yrofRaO  r  =  bsCjI.yrofP^O  *t ; 
if  bsCJ3.yrauaxl  =  year  then  bs C si  1.  •status  :■  y; 
assume 
end 
end 
end;  fbmitrdj- 

PROCEDURE  INITINTEL; 
De^in 

if  year  =  I  then 
begin 

fro  :=  y;  fbo  :=  9* 
frd  :=  8;  fbd  :=  0; 
frrdo  r=  y;  fbrdo  :=  y; 
frrdd  :=  >3  ^  fbrdd  :=  y 
end; 
ro  :=  fro;  bo  :=  fbo; 
rd  :=  frd;  bd  :=  fbd; 
rrdo  :■  frr-iioi   brdo  :=  fhrdo; 
rr  dd  :=  frrdd;  brdd  :=  fbrdd; 
fro  :=«  y;  fbo  :«  y; 
frd  :=  y»  fbd  :=  y; 
frrdo  :=  y;  f'br»"lo  :»  y; 
frrdd  :=  y;  fbrdd  :=  y 
end;  <  i«it:ntel} 


be*»in 

i  f  not  <  year  =  l  >  tl 
begin 

if  'red left  <  y>  then  redbud^tCwsrl  :=  redbudee*  [year] ■*-2JH,*ed left; 
if  (bluleft  <  y>  then  blubvdgetCyearl  :=  blubudeetC year 3+2-^lu let' t; 
uniform  :=  random  mod  lis 
deviation  :=  1 5a-*un  i  f or*»  -  twy£; 
redbudgetCyear]  :=  reobud-?etCy*3r]  +■  deviation; 
bluoudsetCyear]  :=  blubudsetCyearl  +  deviation 
end; 
red left  :~   r^dbudsetCyearl  ;blulef't  :=  r>lub>'d?»etCy«»ar]; 
ra^pent  :=  y;oa<»spent  :=  y; 
riseent  :=  y;oiseent  :=  y; 
rrdspent  :=  ysbrdseent  :=  y» 
for  i  :=  1   to  numof systems  do 
Degm 

rsCiD.umtbu*  :=  rsl.  i  l.eurl  imit ; 

rsCiJ.tual  :=  rsC i]. inventory; 

bsCi3.umtbuy   :=  bsCi].PW»limit; 

DSLi].tual  :=  bsCil. inventory; 

if  <  rsC  l  ] .  inventory    >  9)   irifj  <  r~s  C 1 1-  delete  =  y>  then 

red  left    :=  red  left  -  <  rsCi].  mventnry*r«.C  i  l.oerost  >i 
if  <;0sCi  1.  inventory   >  y*1    and  'bsfi]. delate  =  y >  then 
bluleft   :=  bluleft  -  (bsCil. invent ory*bsC: l.OPCOSt; 
end; 
jj:=   random  mod  •*; 
rtnitrd;   bimtrd; 
mitintel 
■?na;  :'mityr> 
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.  7 Mb  FOLLOWING  SEGMENTED  PROCEDURES  aRF  COMPILED  AND  INSERTED  IN  THE  mwIN 
PROGRAM  MS  BATCH  IB  USING  THE  COMPILER  'INCLUDE''  OPTION.  DUE  TO  PILE 
SIZE   CONSTRAINTS. > 

SEGMENT  PROCEDURE  PRINT  (  R*tr*nn   :    *r.i*\n*    >j 
<Call"?d  optionally.   Pfints  end-of-vsar  decision  summary  for  Player**.} 
uar 

1  *j »left.»a*»sp*nt.« i  spent  .rdspenr-  :  i nt* *er f *vi*o*jd3Pt  :  3Pi*aw  CI.. 26)]  of  mte-9 
>r ; 

d  :  c nar ; 

PROCEDURE  TIJRNENOi 
,iar 

1  :  integer; 
bee  in 

roa  :=  #»  boa  :=  8i 
rob  :=  £;  boo  :=  0; 
rda  :=  8s  bda  :=  9* 
rob  :=  0;  bdb  :=  ij# 
for  1  :  =  1  to  numof systems  do 
oeem 

if  •'  rsC  1  ] . sort.  ■  '00')  inr)   (r«n3. delete  =  9>  then 

roa  :  =  roa  +  r~%C  1  ] .  yt, i  1  stt I  ..- 
if  (n*Cl].sort  *  '09')  *nd  (r«in  1.  delete  ~  <*''  then 

rob  :=  roo  +  r*CL3.util*lll J 
if  'rsCU.sort  =  'Oft'  >  and  (r*Cn. delete  =  &>  then 

rda  :=  rda  +  rsCll.utilst.t.l  ; 
if  (rsCU.sort  ■  '08')  *nd   ''rsm.rtelete  =  9)  then 

rob  :=  rob  +  rsQ].util*ttl i 
if  ^bs[lJ.sorT.  =  00'''  %nd  (b^HI. delete  ■  9 '>  then 

boa  :=  boa  +  bsCl  ].uti  I  stt  I : 
if  <b»£13,*ort  =  '08'  '  =>nd  <b*C  P.  delete  =  » >  rh^n 

oob  : =  boo  +  d«  C 1 ] . ut  i  1  stt,  1 ; 
if  'bsClLsorf  =  'Oft'  >  snd  •  H^C1.  i.oel-3**  =  PH  th.?n 

bda  :=  bda  +  dsCI ].uti lsttl ; 
if  (bsC13.3ort.  =  'OB' )  3rd  ■  b«  C 1  ]. delete  »  G)  rn*n 
bob  :=  oob  *  bsCl  ].ijr  i  lsttl 
*no 
-?nd;  <'Mjrn»r>d> 

PROCEDURE  OUTPUT; 

PROCEDURE  TITLE; 
besin 

wrtteln<  z*'    '  >*writeln<  Z.'    '  i;n— i*p'rt»  7,  '     ' '  "■; 

i#»it  »lr< '  z*'    '  'JiinriT^irx  z*'    '  ^jwritPlntz*'       ); 

wrntelnX  r*' 

n»riteln<  r» '  i  "~i 

writelrKz*'  i    CtNNiiHL   DECISION   SUMMARY    I' 

inn  teln<  r» '  i ._  i 

mrit^lrK  Zi '    '  '■' : 

witelntz,'  pi  .AVER:    '  ,porion,  YEAR:    '*,yea 

r  >; 

wr 1 te  1  r»<  r* '    •  J  swri  te'.n<  r. '    '  "•  .si"r»i  r e !  n<  - . '    ■'  ) 
?ndi  <*titl<»"> 

PROCEDURE  LlSTHn   :    \  nt,r»«pr  '■ : 
Oi?-^  i  n 

uirit<?tr<  r.  '  Mamp<  Typo  :>•     ' ,  ■y-ifi]  ,r^tn«>,  -<  '  ,  ?M«Cnj .  ■;orT  >  '    '   '; 
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nir l  t-e  1  rv  z  > '  I nvent or**:    '  » ■=  v«  C  ri  ] .  j  nventory  ■ ; 

writelrKz*'  3y?te*t  operv.on  cost:    ' >sy«CnJ .oncost*' 

System  ac <*j i * 1 t x on  co-st:    '  .sv-sfnl .  a«:o«f.  >s 

writeln<2.#'  Ut.il   values    '.=•=•«[«}. utils*'  9urcha*e  rat 

*:    " '  »sy**Cn].Purl  inut  >; 

».iritelnr  z*'  Total   o»»»ratJon  cost.*:    '  *sy*Cn3.QPcostTTl>-' 

Total   util   valuer    ' '  »sysCn].u».il«TTL  "'# 
I'iriteinCz*'    '  >»writeln<r.»'    '  ) 
eno,  <li*tl> 

PROCEDURE  LIST2<n   :    tm,«9tr)i 
yar 
m#ini»   :    integer; 

writeln*  z*'  Name<Type>s    '  .■sysCnl.naroe,'''  '  ,sv«-Cn].  sort.*'  .)'  >; 

i>««:=   »•=■<*  Co],  *mf  RaO ; 
if  SM»Cn3.yr3RaDco*t>0  then  ms="3 
el?*   if  sv«Cn].'-r2Ra0co-5t>i3  r,h.?n  n>:=2 

"•rit'?ln<  Z*  '  V<~5    R&D   rr/nplsT.Ptj;     ',hhh*''               Vr-S    of    R&D    re«U 
ired:      »■■>»  ■ ; 

wr  1 te  1  m  z , '  Co<*  ■=.  :                 Vr  1 1    '  »  *•=•<  f  n  1 .  yr  i  RaOc o-st  *  '        Vr2 

:    ' **v*Cn].yr2Ra0cost*/  Yr3s    '.f^rni.'-r'P.jDfo^r  ■; 

writeln<2#-'  Systew  operation  i:o<t:    '  ,sysCn].OPCost#' 

System  acquisition  cost:  '  .«y«Cn].a«w"ost  >: 

"iritel^z*'  Util  val».ies    '  •■5ysCn3.utils#'            Purchase  r3t 
e:    '  #sysCnl.p»jr limit '>; 

writelmr*'    '  >*wrxteln<z*-'    '> 

and;  <li->t2i 

PROCEDURE   IWi 

n, count    :    inte^r; 
oee.m 

luritelnXs*-'  I.  SVSTEMS  HJRRFNTLV   tn   INUENTQRVf'Jj 

writaln*  Zt '    '  )» 
count :**h 

for  n:  =   i   to  nu«ofsyste#a  do 
Desin 

i  f  v  *ys  C  n ] .  l  nvent.ory  >t?  >    ana  (  « y?  [  n  1 .  ce  1  *ti?=t<i  ''then 
ses-in 

listl<n*i 
count:"  count..  +   i 

end 

if  count.  =m  then 
De<9in 

writeln*  z* '  NONE'  >; 

writelnCsj'    * "jjuiritelnCz..'' 

end 
*noj  :'  \  pi  i"> 

PROCEDURE  NOTINUi 
'■>ar 

n»count  :  integer; 
besm 

writelma,'     II.   SVSTEMS  QUOILfiBLE  BUT  MOT  CURRENTLV  IN  INUENTORV:' 
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writ»lrK  z*  '    '  m 

count,:  ~va 

for*  n:=  1    to  numof systems  do 

begin 

1  f  <  ?v« C n  1 .  i nvent.orv=»il  ■•    and  { -s*-'*  Cn] . del  ete=*  :'then 
if  sysCn3.yravail<=vear  thwn 
begin 

listKn  >s 
count:  =  count.  +  1 
end 


end* 
if  count=»it  then 
oegtn 

wnteln<z>.' 
writ#lrt<  z>' 
»nd 
end; 


)it>iriteln<z.»  '    '> 
(.  not.  i  n«  i  > 


NONE  Mi 


PROCEDURE  TOTSi 
oegi  n 

"iriteln<  r* ' 
iunit«?lnv  r, '    '  >; 
i f  <»erson=»» I ayer? Ctl    then 
begin 

mriteln<  z*' 
»iriteln<  z*"' 
wr  i  te  1  n<  z » ' 
wrvteintz..'' 
end 
else 
0*91  n 

i<iritein<  z*' 
wr»it*ln<  z*' 
'•tr:t.(»in<2,' 

wrttelnCz*' 
end; 
uiriteln<  :/    '  )i«rit*ln<  z» 
end; 


TTI.      TOTAL   I.ITU.  POINTS  fiCCUMULflTEOf '  >i 


System  tyee  OB:  '#rob;; 
rvi«tp«  tMW  Q&:  '*rda>; 
3<#*tem  t^»>e  08:    '/rob> 


v-^tem  tsw  Oft:  '..boa-*; 

^sstem   tve*   HB:  '»ooh>; 

-u<z.i ;  *m  tv»e  0&:  '  .dda  >; 

Sy^t.^m  t,yp»  08:  '  >odb  ) 


«.tOtSJ 


PROCEDURE  CURRO; 
van 

n j count  :  m'.M»ri 
begin 

wit.,?irKZ,/  VJ.        ONGOING  RfcO  PRO  IECT3:':-; 

'uritsiruz."    '  >» 
c  ount : =d ; 

r  or  n:  =   l    to  nuroo+"sy«tem<  do 
begin 

if  '■  r-y«-Cn].  ?tatu«=?  ;■   *nd  f  ?M*Cn3.  d*l*t.*>»d>then 
if   vjsCn].  *rRaQrtarts<=ve3r   then 
begin 

iist2<  n  >; 
count: =  count  +   t 
end 
end  J 
it"   counts**   thi»n 
begin 

writ*ln<z.*'  mONE'  ■; 

ioriteln<  z*  "    '  >;writeln<  z*  '    '  "■ 
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end 


end; 


:urrd] 


PROCEDURE  iHOROi 

n. count  :  mtesen; 
besin 

writelntz*'     U.   SHEU'ED  fWD  PROJFCTSs'  )i 
mritelnX  :<'  ' )» 
count:***; 

for  n:=  1  to  numef systems  io 
Desin 

if  ' 'svsCnl. status*  1  »  on  <  *ysfnl. 3tatus*3>  then 

if  ( <?ysCnl.'=tH:,aO,;t^rt-s<=v<»:»r  )  and  <  sys Cnj.de let*=fl'>  then 
be«in 

1  i 5t2<  n  > s 
count :=  count  +>  I 
end 
end; 
if  count**  then 
be«»tn 

mrtteln<z, '  NONE'  >i 

mriteln<  :/  x  );writeln<  r*   "  > 
end 
end*  fsht»r«t> 

PROCEDURE  BUDGi 

ro  :  integer i 


PROCEDURE  COSTS; 
•jar 

l  J  :  :  nteeen ; 
oe^i  n 

for  iJ  :=  t  to  numnt ?v« r em-?  d« 
oe<?in 

if  '  -ihsC  u  1 .  orcostt* I  >  lV''  'iryr>  <  ;yi<  f  i  .i  ] .  vrsoai  ]  <:  =  y*ar*)  f.nen 
if  sysC l j  1. delete  =  y  then 
oe^in 

writeln'  r.  '  *Ome'.  type.*:   ,sy?C  u  ].name>  ' 

(  # sy«  C  l  j  ] .  sort » '  >'  >  j 

writelrKrv  Total  operating  cost:  s 

"  »sy«C  i j  ] .  opcosttt  1  ' 


end 


end 


end; 


t  C  r>«  t.  - 


ae-^in 

'uriteln<  ~, 
write ln< :» 
writein<  r_» 
;>iritelni  r,  ' 

i'  >a^«-pent  •; 
'>iriteln<  z* ' 

,s-,\  spent  ,■ ; 

writeln<  z*' 

.£'  »rdsp«?nt  > ; 

writeinX  z,' 


'if.       FNfr-OC-¥£PR   BUDPET    THPORMOTTON'  "»; 

t.-,t3(    ^r>«-n'5l    31 Inwance*    s'  »«veoud3eti'jear]  >; 
wmoi'nt    ?P»nt.    in    acquisitions 

Q(nrn.irtf    -pent   r,r>    :nte!  1  isence 

Blount    "P»nt     ->n    R    ^rid   0 

i"iporsit.in«  co-?*.--   riM  f.yst.efl»  (those   in   muentors 
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writeln<  r* '   '  :>» 

co*ts* 

m   :=  i&ar  +■  t ; 

iuriteln<.  z* '    '  >* 

mritelnC  z*' 

iuritelnc  r*' 

DUCI9et[i<>J  > 

end* 


Tot=»i  mrnio«  rv?maimne:  *'*left!>J 

Expected  de+'en-?*  bud?'**  for  next.  near:  -S'.sss 


Deem 
title* 
inu, 
not l nv i 
tot  5  » 
curRQ* 
snvRO  * 
buds 

i?ntj; 


Coutprj* . ; 


Dee  in 
turnend* 

if  p*r?on  =  plaver«.Cl]    then 
Dee  in 

*y?.oudeet    :=  ^dbud^et ;  1  ef t   :=  >~«»dlef  r;^**   :=  re; 
a«*p<»nt    :=  ra<»«.pent;i  spent   :=  ri«p#nr,;rd'SP«?nt    :=  rrdspent 
end 
else 
Deem 

eyebud^t   :=  b lubudset » 1  *P t   •=  blul**'* .  ;«.v«    sa  b?; 
a«<«.pent   :=  ba^pent ;  l  spent   :=  bi/?p«?nt, ;rd*5P«»'nT.   :=  brdspent 
*nd* 
elearscreen* 
?otoxy< 13*8  J: 

writelrrt  'DECISIONS  RV   ',  pp^on/    FOR  ,JCC|«    '.y»ar*'    PRE  COMPLETED.  '  ;*- 
if   NOT   <>rtr='"3' ')   then 
Deem 

<»utit<  15.1k*. '-'Pree*.   y/p"   «r>  obtain  printout    of  v^ar' '  ?.  oecisions^- 
PUtit< 15.12*'  or' t 

end; 
put it<  22*14,  '<Pre«*  RETURN  to  continue  earn*  »iaw>' )*■ 
read',  'i  >« 

if  'd='p'  )  or  (d^P')  then 
Deem 
output ; 
putit< 14, 10, x 

putit< 14,12,' 


reacK  d 

*nd 


snQi 


;'  ?nnt.  > 


SEGMENT  PROCEDURE  VESRENO; 

\.Establ  ishes  annual  ?ame  winner,  Compute*  f,he  probability  of  «*ar   and 
either  displays  advisory  to  thp  uwire  *"or  his  decision*  or  oakes  a 
random  draw  to  compare  39ain«T.  r.ne  compfiti?^  probability  to  decide 
war   event  occurrence.  Creates  data  file  on  r^mpo  diekette  if 
»lavers  decide  to  *uit  and  resume  eam<»  a*  a  1 3ter  time.  > 

'->ar 
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neo.blue  :  mt.»??<?r ; 


PROCEDURE  WINNER; 

best.   :    5tnn-9j   rl.r2.ol  #52 

PROCEDURE  DECLARE; 

c  1  i?ar<;c  rppn  ; 

putiu  t5.3.' 

put,iu  15#4»'  I 
putiu  15.5. '  i 
PUtit<  15. S.-'  I 
putiu  15,?, '  I 
put,it<  15..3.'  I 
putitx  15.3.' I 
p'jt„it,<;  15.13.-  I 
?oT,oxy<  I5»t4>iwrxt*ln< '! 
PUt-xtX  15.15*''  I 
put,it,(  15.18.'  I 

putit<  15.17.-'  I 

end 


l  ntP«»er  i 


char* 


— "  :>> 


'  >; 


OS   0   PFS»lLT   OF  P   TRLLV  OF 
QPERQTTONOI..   C0RCF3   IJTTLITV 
POINTS. . . 

i  '    >  i 

FOR  R£ME  vepr  ' ,  u»ar , ' . ' ; ;  Put  1 t<  85  . 1 4  , '  I '  >  ; 

I-  .<; 
l  ■  >; 
I  -  > 


.  3*c '  ar*  .'• 


PROCEDURE  TIE; 

PUtit<  15,11.'  ! 
PUtit<  15. 12."  I 
putitv 15.13." i 
•?nd; 

PROCEDURE  WHO; 
bp-giin 
?otoxy<  15.11  );wntelr><  ' 

P»JT,1TA  15*12*' I 

putitt  15.13.'  I 
•?nd* 


..0  tie   IS  DECLARED 


Ctie? 


",be«t  sputiv.  65,11,'  !  '  >; 
. ..IS  DECLARED  WINNER 


I'  >j 


'itihn' 


rl 
i-2 
ri?d 
01 

d2 


if 

if 


r  l  <  CI   ♦  hi?n  r ! :  *S ; 
r203  t,hen  r2:=9; 

bl<8  then  bt:3<3. 
o2<  0  then  e>2 :  «3 ; 


=  roa  -  bda; 
=  rob  -  bob; 
:=  r*l   +-  r2; 
3  boa  -  rda; 
=    bOO    -    rrfyi 

blue   :=  bl   +  b2; 

3P5.T.   :=   'none'  ; 

if  r<?d<blup  then  bestsaM»lawer?C21» 

if  r*»<j>blue  ^H-»n  best-s*pl  avier**ri .!.» 

dec 1 ar* ; 

if  uw^'now1    then  tie 

ei«e  mho; 
put  i  t<  Z?  .20 . '  <  P^ess  RETURN  to  Cont  i  mj* 
<~*aa<  d  > 
*nd  ;  <'  lit  i  ni**»r»  J- 


PROCEDURE  MOVREWmR; 
war 

name   :    ?trm«»;    =»j 
^1.4«,la»<jiff    :    : 


rfnal  lei* » 1  ?r-'**>r- 
nr,i?'si«»r  C 1 21 ; 


i  nt.eser;  te«t.  .oone  ..on:  ^rhai* ; 
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PROCEDURE  LOGO J 

Oe-ain 

clearscreeni 

putiu  t3,4,'* 

*'  >» 

cijtm  13  »5,'  * 

MM                            MM 

P 

RRRRRPR 

*'  >» 

eutm  13,b,'* 

MM           M           MM 

088 

RR        RPR 

*'  ); 

putit<  13,7.'* 

MM         M        WW 

MP    PP 

PRRPPRR 

*'  ); 

putm 13,3*'* 

HW    M    M   MM 

C|M    P    Mp 

RR   RR 

»">j 

ptititX  13.9.'* 

MM        MM 

PP                PP 

RR        RR 

*'  ,', 

putit<  13,  la,'* 

M         M 

PP                      PP 

RR 

RR 

*'  >i 

p»jtit< 13,11, '* 

*"  )» 

POtit<  13,12,  ■'*• 

*'  ) 

end; 


C 1  o«o  > 


PROCEDURE  MPR; 

d    :    char;   »   :    integer; 
beyin 
io-ao; 

m   : ■  ^ear  +   1 ; 

l  f    = ma  1 1  er-=r*&i  then  redbud?*?t  C m 3 :  =i~edduaget C  m  3  - 1 0^8 
e  i  se  b  1  ubudeet  C  n> 3 :  =b  1  ubud-set  Cm 3 - 1  £#8 ; 


putitc  13,13.'* 
put.it(  13,14,'* 
putit(  13,15,'* 
put.ir.c  13,  IS.'* 
aotoxy< 13.17  >; 
turiteln<  '*- 
puxitc  13,13,'* 
putit<  13,19,'* 
PUtlt/  26*21,  '<.Press 
reaa<  d  J 
end. 


. . .  h»*  bp*»n  d**: !  ar*d   as   a  resu  1 t  of 

disparity  between  plaver  operational 
force  strwffdWi 


Ps    a  result   of   the  war    '  .name  >;putit< 
has  had  nert  >-«»ar"^  budget   a  lashed 
rif*88. 

RETURN   to  Continue:-'   •; 

0«M»r> 


the 

*' 

>; 

*' 

)s 

*' 

)}> 

•' 

), 

65.17, 

'*' 

>; 

by 

-* 

'); 

±s 

)» 

PROCEDURE  UMPL06O, 
oesiin 

clearscreen, 

put  it'  38 ,5 , '  ■  '  *  *■ '  t  r  *  *  •: » '  ■  »  »  T >■  »**/  >; 

putit<38,6,'***  UMPIRE  **•*'.', 

putiu  30,7, '  cot  hh  x  r  a  <  (  n »  (  ■  <  *»'  ); 

wjtit<  IS,  15. 'Do  sou  ''ash  to  terminate  the  «ame  <V  or  M>* 

?otovy<  64.,  i5^; 


reaat  Oone 
end; 


'  U(tip  1  n?o  } 


PROCEDURE  WORNOTE, 

i XI    :    mteeer;     uj 
be4?  i.  n 

putitt 15,15,' 


cnar; 


in    :=   188  -  t.runc<diff"*f 

aotoxyv.  17,15>» 

writeln'.  'The  prodaoility  of  "'ar   is  estimated  to  De   '.in 

p»jtit<22,17,   Oo  you  i>nsh   a  wflr  to  ensue  '  V  or  M>?'  •; 

90tox»<6^,l7>j 

reao<  j j.j  ■; 

if  '  Jvij=^y  j  or  <jjJ«rfV  5  *.n*n 

diff :=8 
else  dit"f:=tA8 


,  *  '•• '  )* 
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end;  <.i.uamot*?.f 

PROCEDURE  PUTflLLi 

PROCEDURE  PUTONEi 

temPlfile    :    f  i  1*  of   ».em«»; 
oe<3in 

rewrite  r.*w«»tfi  1?*  'TEHPO:f>»mpol.  data'1  >f 

lUlth   t,*fnplf  i  le~   do 
oegin 

tvear  r=«v<?3r ;  tr*dl»f  t !  =ror}>  &ft,  it  *  I  ul  9ft :  =01  u  1  eft* 

tratwaiit :  Ta^iMnt ;  T.ba<*«pent. :  *ba<w  p«nt  ; 

tr  l  ?p«?nt.:  =r  i  ?pent ;  r  b  i  w»nt :  =&i  *p»r»r. ; 

trrdspent:  =rrd'SP<?nt ;  tbr*d«P«mt :  =crdspent  # 

tnumof  ■systems:  «mjmof  sy«T  *ms  ; 

troa:  =roa#trob:  =^ob ;  trda:  =rda ;  t.rdb:  =rdb  i 

tboa:  =bcai  tboo:  =bob  j  t  bd^:  =r<n^  i  r  bob:  =bdb* 

tro : =ro ; t rO : =rd ; %rrdo : =rrdo ; nrrdd : =rr oa ; 

tf  ro:  "fro ; tf rd:  »f P«j  #  tfrrtlo :  =f rrdo ;  tf rrdd:  =f  rrdd.; 

tbo:=oo;tbd:=bd;tbrdo:=brdo:T..brdd:=brdd; 

tf  bo:  =fbo;t*"bd:  =*'bd;*  f brdo:  =f  Hrdo  ;r,f  brod:  =f brod ; 

Muarc  ont, :  =warc  ont, ;  tpr  tr :  =w»t,r ; 

t.p  1  ayers :  =p  1  ayers ;  r.redb«jd«iet :  =reobud'?et. ; 

f.b  1  ubudget, :  =b  1  ubud«»t. 
end; 
putXtemptf  i  le;» 
close<  templf :  le*lock  > 
end;  <put,one> 

PROCEDURE  P'JTTWO; 

*.emp2file   :    fil#»  of  *y*T.<?m« ; 
begin 

rewrite  tempiif  i  l^'IFMRntremprtS.  data'   ■; 

r,emp.2f  i  1  e~    :  ■  r»s  ; 

pum  tww^Sfi  1»># 

tempif  i  1  ««*    :  =   bs  i 

p»jt(.  r,i»mp2f  1 1  e  * ; 

c lose1-  t*mt»2f  i  1*» lock  ) 
end;  ipij»t,iuo> 


begin 
putorwj 

P'Jt-T,IiiO 

■?naj  Cput-all} 


o*gin 

=?   :  =  random  rood   101 ; 
name   :  -  p  L  ayers  C  1  ] ; 
smaller   :  =  r>?<i; 
larger   :=  blue; 
if  blue<red  then 
begin 

name   :  =  p 1 ayers C 22; 
smaller   :  =  blue; 
1  &r"?er   :  =  ned 
end; 
im:=smai  ler;  la:=lars«er ; 


89 


diff   :=  (iea*»»)  OIU   la; 
*l  :=<*# 

um* I o«o  * 

if  •;  done»'y' >  or  (dorw'V)  then 

clear«.cr<?<?rt» 

-sotox**.  I9*l3)s 

i"rit<?ln*,  'Oo  vc<  t'ii«h  to  r^su***  pt  =jv  Prom  thi*  point'  >* 

90tOXV{ 19.11 ij 

uiriT.*'v  '  St  3   lat-ar  time  c  V  or  N>;    '?i 

r<»ad<  r-in .' ; 

if  M»»n='V  >  or  '  mr>=' <•»'  >   then  pt/tatlj 
i*ai  nf  1  as:  =».  ru*  j 
>?xit(  y4»ari?nd> 
<?nd 

■?l5* 

ma  i  rtf  1  a«»:  **f  al  *"? » 

it"  ouarc ont= 'y'  j  or  Cu<arcont=' V''  )  then 

wamote ; 
if   *i>diff   th*»n  u<ar 
*nd  i  ( mayOew  ar  ; 

b*3in 

hi  inner; 

irtayCi>?'uar 
enci;  C*»arerw1> 
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•  ^uiT  cm  i  i"n  i t Kit's  •:ecMCViTcr(  3©|-n--cni  iocc  -ocr  "nuoti  en    ->'0  TucroTcn  tm  tuC  mCiTM 
PROGRAM  AS  BATCH  2  USING  THE  COMPILER  'INCLUDE'  OPTION,  DUE  TO  FILE 
SIZE  CONSTRAINTS. > 


SEGMENT  PROCEDURE  UMPIRE; 

<!Hllow*  same  ijmnre  to  alter* 
Also  permits  umpire  to  alter 
of  mar. > 


delete  *">r  add  systems  to  same  el  ay; 
el  aver  budeet  fieures  and  probability 


PROCEDURE  WRITESVS<  J  :  inte 

PROCEDURE  PORTS ; 

PROCEDURE  PORT I ; 

PROCEDURE  PORTtfiUXi 
bes»in 

writeln<  '       0 
*rot'RaO>; 

write]  n<  '  F 

yrlRaucost >• 

writelrK  '  F 

yr2Ra0cost >j 

writelrK  '  5 

*r3Ra0cost >; 

writelrK  '  H 

. . . ' »r*CJ2.yrauai 1  > 
end; 

beein 

"•ritelm  ' 

writelrK''  A 

if  <  rsCj].  sort  =   'Oft' 

writelrK '  8 

if  <rsCj].sort  =   'Tig' 

writelrK '  8 

if   '■  rsCjD.sorr   =    'OS' 

writelnt'  8 

if  (rsCJ3.30Tt  =  'OR' 

writelrK'  3 

write ln< '  C 

. '  ,r~sC  j  3 .  yrRaOstarts ) ; 
part  1  aux 
end; 

PROCEDURE  PART2; 
Be^in 

writelrK  ' 
. "  »r-»[j  ].  inventory  >; 

writelrrt  '  J 

*'  .r-sCJl.AQcost  »i 

writelrK  '  < 

**  »rs£J].QPcost  >; 

writeln< '  L 

. "  »rs£j  ].uti  I*  n 

"•nteln<  '  it 

.  '  »rsCJ  l.purl  imit  ->;i>irit<»in 
end; 

oe^in 


>i 


S*rs  R&O  complied  at   same  start. . . . ' >rs[j3. 

First  R?-0  'r">*r  cos*-: .s'.rsCj]. 

Second  P%D  vear  co«t: ,  .*' jrsCJL 

Third  RJ:0  '-M»ar  cost: -S'.»rsCj]. 

Farlie«*.  "-«<?3r  auai ladle  (after  R  and  D>: 


SYSTEM  ',j  >* 
Name: '  »rsf  j  ]  .name  );wri  teln; 

>  or  ^r^CJJ.sort  =  'oa' ^  then 

Ty»e: Of  fens  i  •■•*  System  Weapon  Type  A'  ' ; 

j  or  '  rsC.i  I .  sort  =  'ob'  )  then 

Type? Offerwii«»  System  Weapon  Type  B'  >i 

'">   or  <  r-sCj].  son*.  =  'da'  >  then 

Tmp«»' Defensive  System   Weapon   Type  A';; 

>  l3r  fnsCJJ.sort   =   'db'  )  then 

Type: Defensive  System  Weapon  Tyre  8'>; 

cii~=t  year  Rft,D  can  start: , 


Crartl> 

Units    in    in1 -entory   <at   same   starts: 

Acquisition  cosT    -Per  unit1: 

Qrerat  :ns»  cost  •  <»er  unit  >: 

Uaiue   in  utils  ''per  unit;: 

Maximum,     annual   °urcnase  rate:..... 


'part J. 
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parti #par*t2 

•?nd; 

beem 

clear-screens 
parts 

PROCEDURE  PRIHTSVS* 
•••ar 

i*  :    char >f   :    inteeer; 

PROCEDURE  PfiRTli 

PROCEDURE  PQRTlfiUXi 
beem 

writelrKz*' 
rof RaO  -1 ; 

writelrKr*' 
rlRaQco^t  > ; 

"iritelrKz,  ' 
riRaOcost  >: 

writelrK  z*' 
r3RaDco«t,  > ; 

mrirelnX  z*' 
. . ' »r»Cf ].yraoai I ) 
end; 


t  part,  -5  j 


i'i'iri  te^ys":- 


Vr*  P^tD  com^letPd   3t   eame  start. ...' >rsCf].y 

Pir*t   Rk.0  '->»ar  ccrst: S'#rsCf3.« 

S<»cond  R*0  '-<ear  co«.t: 5'  ,rsCf ] .y 

Third  fi*<0  vea«-  cost: .....*' #rsCf 3. * 

Earliest  year   available  ( after  R  ana  D>: 

<!parttavx"> 


bee  in 

write  lr/  z*' 
i<»riteln<  z*' 


SVSTEH  ',f>* 

N*we: '  »r-s[^].na<ne  >* 

if  <r*Cf3.*ort  =  '09' >  *r  'r^Cfl.sort  *  '<?a'>  thtn 

iuri te  1  n''  z  • '  Types Of f <?n<?  i  ■  .<»  System  Weapon  Type  B' )» 

if  (rstf  l.sort  ■   'OB'  ^  or  (  r«f  r1.  *or»    =   'ob'  »  then 

writ»ln<z#'  Types Qffer**i«*  System  Weapon  Type  B' )» 

if  <  rsCf  1.  sort  =   'nQ'->  or  <rs[f  3.*or*.  =   'da'  '  t-hpn 

iiriteln<  z*'  Tyee; Oefen<iw»  System   W«aeon  Type  A' >» 

if  (rstfj.sort  »  'DP'''  or  frstfS.sort,  =  'db'  1  then 


write in<  z* 
'uriteln',  z*' 
' »rsCf 1 . yrRaOstarts > ; 
partlaux 

end; 


Types D*f*f*sive  Syst»«  Weapon  Type  3' 

First  •-•ear  R&0  can   start : 


>arM  j 


PROCEDURE  PQRT2; 
oeem 

writelrK  z>' 
«r^[t ] . inventory  5 ; 

writelrK z#' 
'  »rsCf l.AQcost  >j 

write ln<  z*' 
■"  »rsCf l.GPcost  >; 

'»riteln<  z*' 
'  »rsCf l.uti  Is) ; 

writelrK  z*' 
'  »rs£fl.pur limit  >»writeln# 

if  rsCfl. delete  =  99  then 
be^in 

"•r:teln<  z* '  '  >» 
writelrK  r*' 


1  'n 1 1«  in  t rven» cry  (  %t  ?a«e  start  >t 

0,-  -w  u  i  J  t  » r>n  "  n«  t  •  »»r*  un  It't ....-S 

Operat  i  ne  co*t  '  per  unit .': s 

1  'a  1  ue  i  n  » iti !  *  <  per  uni t  >: 

Mavimum     am? iai   pfjrrha^e  rates 


i  y  i  ■;  t  it.n.v;  ■:  v  r  y  <  j!  x  *»*■>*■:  x  jHjannnn 
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,:  i<irit*ln<z,'-  *■**   5V<iTEM  HftS  BEEN  DELETED  ^ROM  THE  SflHE 

•'  i 

IMP  1 1  e  1  r>*.  ~*  '  •"  fl  N  '<  >  *  >  >  '  ■H'  V  *  X  X  X  X  I  X  X  X  iHHHHHHHHHHHI  X  (  X  *  X 

.) 

end; 

mpiteln<  :.,'    "  >swrit*ln<  z.'    '  );uipiteln<  z.,'    '  > 
end;  <>*rt2> 

be«in 

c  lear«cri?©n; 

putit<  15.1&.'  If"  you  desire  a  hard  copv  of  all  systems  t.o  oe  used' >i 

»utit<  15.1 1 . '  m  th«  *»w  plav»»  enter  "P"  for  printout*  otJwwis*'"  )s 

put it< 15*12*'  press  RETURN  to  exit  Pack  to  menu.  8e  advisee  that'); 

put it<  15.13.'   printout,  will  take  5  to  1<*  mins.  and  may  not  be'.1; 

put :  t<  1 5  * 1 4  , '  i  r>t*r>"  tpted. '  >  ; 

reaO'«  r  > ; 

if  <r  ■  'p'  "•  or  <  r  =  'RO  then 

for  f  :=  I  to  numoVsystems  do 
0e-9in 

parti ;part2 
end 
end*  Cppintsy*} 

PROCEDURE  PRTCHOICEi 
De*m 

c  learsc  r»<?n; 

oi;tif.(  29.  I  .  '  iHHHHHH>*HHHHHHMHHMHMHHHHHHHfr' 

put  it(  28*2* '■***  IJHPIRE  INSTRUCTIONS  +**'  ) 
putit<  29.3* '  x  x  x  x  <  m  »  x  x  v<  x  '» *  x  x » *  <  x » > «  »  »y 

putit<  31  .r*'-!-  Printer  Status  -*'■'» 

putit< 18. ly» 'Enter  the  number  correspondinsi  to  current  printer  status  :' 

putit<  14,13.'  1 ..  -RS232  UNIT  Attached  a«d  c ont" i *ured  to  receive  data'  >» 

putitc  14.15.'2...PPPLE  SIt.ENTVPE  UNIT  attached'  ■; 

putit<  14. l? . '3. .  .Printer  either  not  connected  or  iot  of  ■■"•tion  type'  >; 

gotox'jK  7^,119  ); 

read(  mr  >  ; 

case  prtr  of 

'  1 '  :  rewri te  <  r. ' .  RS232'  "«  ? 

'2'  :  rewrite  <z,'. SI LENTVPE'.' 
end 
end ;  •  f^r  r  n«  i  c  e  5 

PROCEDURE  BROWSE; 
war 

i    :    integer  .choice   :    charscheekfl  a«  :    nnninm 

PROCEDURE   DELETE J 
■■•ar 

j    :    inr.*«ier  jpuitf  la*   :    ?oolean:rt   :    char* 

for  j    :  =    1    to  nuiwof svst  ems  do 
aegin 

3uitfla<?   :=  v"*l<-e; 

r»p«»at 

mri  *esys<.  j  '  . 

Put»it<5*t7*'Ente',»  one  of  t.K>  cni_LQWiN«7  options:' >* 

putit<  5.19.  '9. ..  Delete  displayed  system  anc    advance  «»aee'  ) ; 
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•'  i 


put  1 t<  5  »29*  "8. . .  Qdv *rw  ?  p a?1?  »•  t T  >">o< ,>t  rte  1  et,e i  ng  d i  s»»  1  ayed     system 

put i t<  3*21 » 'C. . .  Qui  t  de l •»♦  e?  ng''  > ; 
read<  d  ;■  > 
case  d  of 

'Q'.'a'    :   begin 

rgf.j  3.  delete    :^=  9*s 
rsCJl.yrauail    :=  999; 
^utffla?   :=  r.rup 
■end; 
'B'V'b'    :    «jif.fU^   :~  trw; 
''C'.'C    :   e»<it(  delete  )j 
otherwise  help 
end 
until   iuit.fl a9 

en<3>  C delete} 


PROCEDURE  CHECK  R«3<    J    :    integer;; 
var 

k*    should  :    mteeerie   r    <th.gr: 
begin 
k    :=  9; 

if  rsC*i].vrlRaOer>sT.   >  ft  then  k    :=   1; 
if  rsCj].yr2Ra0co*t   >  9  then  k    :=■  2* 
it"  rsCjl.yr'RaOcost    >  ft  then  k    :=  7.- 
if  rsCj].*rRaOstarts   >  9  then 
be«m 

should   :3  r*Cj*).'r<rRaO«*  arts   +>  k; 

if       not  (should  =  r«i£ jl.yrauai  1 )  and  'rsCjI. delete  =  9)  then 
oegm 

putit(  1*17,' 


'  >» 


eutitc  1,13,'' 
putit<  1.19^'' 
PUtlti  1,20,'' 
PUtltt  1,21,'' 


r  •i^r  1 1  est ' 


?otov«*<  5*17)  J 

niri telnt  ' Th<»i~o   ?«    v>   tnrn»>«:*-*3n"*y   'n  vour  R&Q  parameters,    ''ou 


aotovs**  5  n  1 3  > ; 

»'riteln<  "-»r   available   i<"><?s  not    alio*"  for   '  ,k , '    yrs  of  h&O  begi 
nning   in  yr    '  .rsC.j  ].^r°aOst.^rt.t .  ■' .     )j 

p».tit<  17,21* 'Pre**  RET'iRN  ro  correct  parameters.     • » 
read< a  < ; 

cnerkf 1 ag  :=  f^Jse 

•?nd 
end 
end,  CcheckfiaO} 

PROCEDURE  ALTER* 
var 

j    :    integer  *d  :   cKwws^uitftag  ?   boolean* 


PROCEDURE   PCiPGMETER; 
■  >ar 


94 


at  l  on : 


mhicn   :    cHvar;num   :    integer  ;nat»>e   :    =t>~in<=»; 

PROCEDURE  M«VBE3i 
oe-9in 

case  'uhich  of 
'J'* 'J-'    :    beem 

*otoxy<  S^IS1*; 

mri^e*.  '  Ent  ei"   a<^'=n.^,  ?it  i  or>  co?t  p<?r  unit:    £'  >; 
read  1  n<  nuro  > » 
rsEJl.a^cogt    '-   ^urn 
end; 
'K','k'    :    bes»m 

sotoxy<5»t8>; 

«nt?/  '&>t.«»  A(»*r3Mn<t  <rost  p*r-  unit.:    $'  >; 
readlm'  rum  >; 
i*StJ3»OI»eO*?t     :=    ntiro; 

rsCJJ.OPCQ^ttt]    :=  t~<C j  ]  .oPCOSt,*r-5 C j  ].  inventory 
»nd; 
'L'»"l'    :    be^in 

SOtoxs*  5#13>; 

w a te< 'Enter  util   value  per  unit:    ')» 
readlnv  mjm  >: 
rsCJ].utils   :=  num; 

<**«£. il.ut!  Isttl    :-  rsCJ].utils*r*5CJ3.  inventory 
era; 

90toxy<.5»l8); 

t"rit<?<  'Ent»r  maximum  annual  purcnase  rate:  '  •>; 
read 1 n'  num  > ; 
rf.[^1  ,p»'rl  imit  :=  nv*> 
end; 
otherwise  help 

end;  r«ayB*3> 

PROCEDURE  HfiveE2; 
oe<?m 

case  "inich  of 

c'  »'f    :    be«»in 

<?otoxy<.  5*18>; 

!ur*^t*<  'En»er  £nd  RfcO   -"ear  cost:    5'  ;•; 
read  1  n<  nu«i  -• ; 
r*.£J3.  *r?RaQcost    :=  r>um 
*nd; 

aotox*<  5*  18-'; 

iiij^T  T.iw(  'EfltPr    7f~<-J    S:*.ri    -<e3r    CO?t.;     £'  ); 

neadlnt  now ) ; 

rsC  .'  1 .  V~RaOco«r     :  =    nijm 
end; 
'H','h'    :    oe«nn 

?otoxy<.  3*13); 

Nirite^  'Fnter  vear  systern   is  first  available  for  oeer 
.'» 

neadlrX  nu«); 

if  num  =  !  then  rsCJ], status  :=  6 

else  a-s c .j  1 .  ; t atus  :  *  i ; 
rsCJ 1 .  yrava  1 1  :  =  num 
end; 
""  I "' » ■''  i '  :  oes  l  n 
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«wtox*«<5#t8  >» 

i"«"it*«  'Enter  unit?  in   inventors  at. 

read  I  n(  m  im  / ; 


start; 


rsC.J3.util.sttl 
end; 

otherwise  i<»ayoe3 
end 
end*  <.',r>aybe2> 

PROCEDURE  MftVBEl; 

PROCEDURE  M13VRE4; 
war 

t>\ck    r   char; 
Oes-in 

*otovy<5,13  >; 

writeln*.  'Select  system  type: 


rsC  j  3 .  inventory  :  *   num* 

rs£  j  ]..-iRrr>«Lt.tt  f  :=  r^rjl.oPCOst*rsCj 3. inventory* 
"  C  J  ] .  ut  i  1  s+rs  C  j  3 .  i  nventory 


:=  r-sl 


writelrK  ' 

1. 

no. 

write ln< ' 

2. 

OR. 

writ#ln<  ' 

7. 

08. 

write  lm'  ' 

4. 

•    D8. 

reacK  Pick  >s 

putiu  5#13*' 

.Offensive  Weapon  T'^pe  ft' >; 

.Defensive  Mea#on  Type  q-  ), 

.Offensive  We3P<">n  Tw^i?  8'  :>; 

. Defensive  Weapon  Type  B' )» 


pytitt  5*13.' 


'> 

'; 


put  if.  5.2*.' 
Put.ir.<  5.21 »' 
p»jtit<  "5*22.' 


i- 3-=.i?    Pirt-    nf 

T'    :    rsCJ3.sort 

:=    'Ofl'; 

'2'    :    r-*Cj3.«nrt. 

;=    'Qfl' : 

'3'    :    rsCjl.sort 

:=    'OB' . 

'•*'    :    rsCj").  sort. 

:=   '08'  ; 

oth»rw  l  se  hplp 

■flij 

»nd; 

'  ,n  ayh?4  > 

OPS- in 

case  which  of' 

'fi'/a'    :    Deem 

,'b- 


3fit  ovy<,  5«  t8^» 

ii»rite<  •'  Ent  «»r  npin  system  n^tne:   ''» 

re  3d  1  n*  name  '' ; 

n«  C  j  3 .  nam*   :  =  name 
*nd; 
maybe**; 
be^m 

90toxy<  5 » 1 8  > » 

write*  EnT<?r  year  R'&Q  is  t-o  start  (if  necessary  •>: 


■  .) 


re  ^d  *  n<  num  % ; 
rsCJ3.yrRa0starts  :=  num 
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•»nd; 
D'  .'d'    :    oz*\n 

3©T-OXy<  S  ,  1  S  i ; 

mritP1' 'Fnt^r   years    P?D    rnmplPTPd   .^r.    garni*   Start    'norm 

ally  0>j   '  >* 

n<=>adln'  ni.irn  ■; 

r*s  C  J  ] .  yrof RaO   :  ■  nuffl 

E  ' .  >•''    :    besin 

write<  'Enter   1st  R&0  ^ear  cost:    &'  >; 

i~sCj J.^rlRaOcost   :=  nun 
»nd; 
otherwise  iflavbe^ 
end 
end;  CmattbeO 

oe-ain 

PUtttC 1,17,' 
PUtlU  1  »  1 S  *  ' 

'  >; 

PUtit<  1,19.' 

■'  i 

putiu  l  #29.' 

'  )i 

*>Utlt<  1#2I*' 
'   )i 

sotoxyC  5,1 7^; writi?< 'Spinet   ^  parameter*?    '  >s 

read*  which), 

"iaye>el 

bp-pin 

for  ,i    :=   1    to   17  do 
oesin 

cheetcf  1=»9  :=  *"al*p; 

'"riti?^*?^  j  ■• ; 

if   ns  C  J  3 .  de  1  et<?   =  99   then 
DPS-tn 

«Jt  i  M  1 3  *  1 7 . '  •'  i  f  '<  i  <  '  •'•  '  '  '  »  <  •  '<■ '  <  *•  < »  ' '  >  x  .((Hnininn  :<  :■:  :<  »  >  >  » x » '  > 

i 

ptjtite  13,18.    ***  ^VSTEM  HP<5   REFN  DELETED   FROM   THE  SfiHE   ***'  > 

» 

P»Jt  1 1«.  1  3  ,  1  9 ,  '  *■*  «*■*  ■■  «•*»■<  '■•  v  (i  <  .  .  ■  <  <  >  '  «  >  ■•  <  (  (  X  ;r  v  f  A  X  J.  i  .(  .(  >.<..'.  • '.  i  X  '    ) 
p 

iTheclcflas   !*  'r-i?; 

put. i t.t  \ 3 > <?  1  ,  =>^*««    octijPn   to    ^duancp  *»9,9P  ># 

"pad*  d  ■ 

opsin 

»<jtitf.  5.  1 7,  'Fnt  »r  in»  of   '»?■?   FQt.l_0WIN6  opt. ions: '  )s 

PUtit<  lgt*19»'0..  ,01t»r     a    par'^etei*'    'i 

pytitc  13,20.,'B. .  .Advance  »?<?»  to  next  default  systew'  ••; 
put  i  t(  1 8 #21  j  ' C. . .  0u 1 1  brrmi*.  \  rvo "  ' . 
^sad*,  d  ■ ; 
case  d  of 
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'ft'*'*'     :     !»**3IWft.**l»i 

'B'.'b'    :    be*  in 

CfteC^f 1 a9    !~    true* 

checkRaOCi ) 
»nd; 
'C'.'c    :    bwm 

c  hec  k  f 1  a-?  :  ~  r  rue ; 

checkPaQC  .1  >; 

i f  •: h»c v f  la*   -  t roe  tnen  ex  1 1<  a  1 1  er .) 

prifl; 
Otherwise  heir 

»n<3 
end 
unt.il   c heck f la* 
end 

ends  raif.(?r':- 

PROCEDURE  a00; 

j^kjntw   :    integer ;nam*  t    strtr<*;.j   r    char; 

PROCEDURE  PwRTl; 

PROCEDURE  PTLL1; 
oe*in 

rsC  .33.  status  :  =  0* 

inntelrK  '  Fir-sT    •-•par  PS-0  can  start.:..... 

...     »rsCj 1 .  yrRaOst  arts  >  j 

rs  C  j  ] .  yrot'RaO   :  =  num ; 
*otoxy<  US )» 


,  *ro+"  RaD  '-' 


"•riteln*' '  yr«   9?n  completed  at    =»ame  start: ...'  ,rsCj] 

*nd;  Cf'.  Ill"* 

PROCEDURE  PSRTlflUXi 

pick  :  char; 
oesin 

rut  it<  5*17*' 

?otoxv<  5.1?"1; 

uir iteln<  'SELECT  SVSTEM   TVPE:    ">; 

turiteln<  '  t.  Oft. . .  Ot""f  *n«  i  •-"»  u«»3^cn  Type  0"  >* 

luritelnt  '  2.  Oft. . .Opfensi'jp  wps-pon  T^pp  Q')» 

'.'•rite ln<  '  7.  r,P. ..  Of  *"en«  '••<?•  weapon  Type  B'  >j 

"jriTPipi' '  a,  Q8.  •  .Defensive  Weapon  Tvee  9'','; 

road*,  pic"  >; 

»Mtiu  ?,i?,'  ■■  :> 

PUMt<5,i3,' 

rutit<5*l9#'  ') 

witit.<3#28#> 

rut it< 5*21*'  '  > 

case  Pick   of 

"  1 '     :    oe*in 
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eOtOxyt.  I  j4)j 


■-»p«; Off ene :••'<?  Weapon  Type  w 


end; 
"2'  :  beein 

reEJI.  serr  •=  '00'  ; 
?otoxyC  1  ^  •!.  > ; 


T'hp*: 


Defensive  Weapon  Type  m 


■»nd: 
beein 

rsC.n.eort.    :=   '0^' ; 

?OT.Oxy<  1  »4  ); 

inn t.pln<  '  Tmp»- Offef**iw*  Weapon  Type  6 


end; 

beein 

r<[j]. ?ort    :=   'OB'  ; 
aotoxy*  1 .4  ".i.- 
i'iritelrK:  '  Tye 


,0ef endive  Weapon  Type  3 


end; 
ot.her*>i«e  help 
?nd 


end; 


■:' p  art.  t  =>u  y  > 


bee  in 

?ot,oxy<.  1,1  ); 
writ el n< ' 
putit<5»17,' 


NEH  3VSTE*  '  ,k-  :•; 


'  <r'[.il . name  •; 


eotoxyC  t8#l7>; 

writ.e<  "'Enter  new  *y«.tem  na*w»! 
reaaln*  name  '; 
rs  £  j ] .  name  :  =  n.?<>»?  i 
aotoxy*.  1 ,3  fi 

"«niteln<  '  H.am^r .  . . 

>»3rT.laux; 
?otoxyt  1  y ,  1 7  'i ; 

"trite* 'Enter  year  .Rx-Q   i*   t.ci  ^t  ^r*    '  :f  no  P?.Q,    enter  @)i    '  >; 
readln*  nu« '; 

r*  l  j  ] .  yrRaustart.*    ■  =  ntjm ; 
l  f   num  =  kJ   then   f  i  1 1 1 
el^e 
See  in 

?ot.o*'y*  1  >5  '■'  > 

mr*XT.eln<  '  c\r-ir    ^ear  ft&Q  can   jt-art,: 

#r-?.C-j].yrRaCi'5.tart*  >-, 

putif,<?»l7»' 


?otoxy(.  18,17'); 

kirite*  '  Enter  yr«  Rx-0  co«M»let-e«1  3t,  seme  start,  ■;  normally  8>:  '  >; 

read 1 nc  num  • ; 

if  num  =  y  then  r-s [  1 1 .  st-at.u*.  :=  ! 

else  rsCj ].  vtatus  :=  2; 
r*. L j  1 .  ymt'RaG"  :  -   num ; 
aotoxyv  1 16  j; 
wri  teln' "'  Vr«s  R&0  completed  at,  ?ame  start" ...'  *f 
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■»nd 
end*  •<»■>*»♦  i> 

PROCEDURE  PGRT2; 

PROCEDURE  FTLL2; 
be^in 

r-s[  .1]  .  yrlRaOcost  :=  11.1m: 

s-otoxv*.  1  #7  >* 

'■iriteirK  '  cir's*-  R?Q  y»ar  rost.: S'»rs£j] 

. yr I RaOc ost ) » 

rsC  j  3.  ;>r2Ra0cost   :=  m.'ro; 

sotox-sfc  1  *3  >; 

writ*ll"K  '  ?*?<rond  R"<0  ^ar  cost.: ...S'  ,rsC j ] 

. yr2Ra0cost  :•; 

r?ui].yr3Ra0cost   :=  numi 

sotoxyv!  t  #9); 

»irit.?ln< '  Third  Px-D  year  cost: *'»rsCJ] 

.  yr3Ra0cost  "> 

end;  mU2> 

De^in 

it"  rsCjl.yrRaOstart-s  =  ti  then  *"ill2 
else 
he*  in 
putit<5»l?#' 
■'  >» 

sotoxv<  10,1?  >» 

write*  'Enter  t-at  P3-0  year  cost.:  *")s 

readlr*  num); 

rsCj j.yrlRaOcost   :*  nom* 

«Jtoxy<  I *? "> j 

writ*ln<  "  Fir^t    R?0  y#ar  cost: S' <r 

sto l.yrlRaOcost  •; 

»'.'tit<5*17.' 

■'  i 

?otoxy<  1^,17'); 

write*  'Enter  2nd  P&O  year  ro-;':  f  •; 

readlrK  num  >; 

r*s  C  j  J .  yr2Ra0c  ost  :=  nums 

90toxv< I »8 ) ; 

writeln*  '  R»rond  R&Q  y#ar  cost: S'*r 

sCj].yr2Ra0cost  >i 

putir.<5,i?,' 
'  >• 

rotovyt  10.1?>; 

write*  'Enter  3rd  R&Q  year  cost:  *'  •» 

rea«3ln<  nun  n 

rsC j ] . yr3Ra0c ost  : =  num ; 

sotoxy<  1,9)  j 

uiriteln<'  Third  R*,0  year  cost: s~  ,r 

sC-j  ].yr3Ra0cost ) 

end 
»nd#  ''»vt2; 

PROCEDURE   PdRTli 
oesm 

putit<5»l7.' 

■'  >i 

?OtOXy<  1ft,  1?); 
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inn te'.  '  Enter  ^*sr   ?v«.t\efn   i?  first,    y.'ail^ble  for  operation:    '  >; 
read  1  nf-  nui«  ) « 
rsCjj.yr^vail    :  =  num; 
sotoxy<  1*10); 

writ»l«<  '  Earliest  vear  wail^ble  (after  R  ana  0,):. 

. ' »rsCJ].yravai 1 ); 

putit<  5,17.. 
'  >; 

?OtOX'sK  t9,l7>> 

mri te<  ' Enter  units   in   inventory   at   starts    '); 

read  1  n<  nun*  ^ ; 

i^-sCj].  inventors  :=  num; 

aotoxy<, I / 1 1 ) i 

uir i te  1  n<  '  Unu?   m   i nvent ory  <  at  -?am<»  start ) : 

, « '#rsCJ3.inwentorv)# 

p»jtit<5»17,' 
">; 

?ot  nvy<  1  fl  #  1 7  '> ; 

i<trite<  'Enter  acquisition  ?<Wt  e»r  unit:    J'); 

read  1  n(  nui« ; ; 

rs.Cj].a*eo<?t   :*  num; 

eotoxy<  t  # 1 2  > ; 

writelnc  '  acquisition  cost  •:  p*>r  unit)* 

. &'  »mCj].HiJco'ST.  j 

end;  Crart3> 

PROCEDURE  WJRT4; 
begin 

putit<5»l7,  •' 
'  '>; 

sotoxyv  18#1?>j 

i>irite<  'Enter  operating  cosf.  *er  unit!    %' M 

read 1 n(  num  > ; 

.rsCj].OPCO«t.    :=  nvmi 

aotoxyv 1  *  13)  J 

lurite  1  n<  '  n«»<»rat  i n«i  co^t   •■'  pen  uni t  >: 

.£'  »rs€J3.0Pco*t  »s 

»<jMt<  5,17," 
'  ># 

?otoxy<  ltf,17>; 

"jri tec 'Enter  util   value  per  unit:    ■'  n 

readlm  num  >: 

rsCJl.util*    :  =  nui«» 

?otoxv<  1,14); 

»iriteln<  '  "alue   in  "til?,  'per  unit1: 

. .  '  #r-sCJ].utila  >; 

putit<5»17.' 
'» 

?otoxy<  1 8 » 1 7  '>  * 

'unite*    Enter  ">avimnin   annual   purchase  ^3te:    '  >; 

i~eadln<  n>jm>; 

rsCJI.PUr limit   :  =  num; 

sotoxsv  l ,  15'); 

•'<riteln<  Maximum  annual  purchase  rate:.... 

. .  "  »rsCj l.eur  limit  );writpln 

end;  frqrt4> 

begin 

♦or  j  :=  18  to  38  do 
oeem 
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ch#ekfl*9  :=  t"=»l-?e- 

k    :=  j   -   17; 

c  1  ear-screen; 

eartl; 

part2; 

part3  i 

part4 , 

check flae   :=  true; 

checkRaOC  J > 
until   cneck-Hae; 

numot -systems   :=  r>umot"«.vi«t i?^  +.  l ;r«[j]. penalty   :=  d; 
rsCJ]. delete  :=  <3;r«[  Jl.i-»eco«ttt  1    :=  r-s[.i  T.opcost*r'sC J 1.  inventory; 
rsCj].uti lsttl    :=  r*C.i]."tils*r<:Cj'].  inventory; 
p«jtit<  18*17,'     Do  you  wisn  to  create  another  system?  . 
>i 

putit<  19,13,'  <V  or  N> 

read<  d>; 

if  <d  ■  'N'  )  or  f*j  =  'n')  then  exit(add) 
end 
end;  <add> 

PROCEDURE   BUOSETj 
■var 

n,j,k    :    mte?er;   oudfla?  :    boolean;   *   :   char; 

PROCEDURE  CHANGE; 
oe^in 

ptitit<  1,1S,'  —  '  ); 

putit<  1.17,-'  '  ); 

p'jtif.  1,13,'  '  ); 

eotoxyv 19. IS > J 

"irite(  'Enter-  ^<>%r  for  '*han-?e  (.  Th«»n  pr*e««  RETURN >j    '  >; 
readlnc  n  i; 

i  f  r.  1 1  ->20  >  or  '  1 1  <  I  >  then 
beem 

clearscreen; 

PUtit<24,18#'VEOR  must  RE   IN  TWE  RGN)?E  <l-20>'>; 
Putit<27,ll,'<Pr*es«.  RETURN  to  Continued); 
reacK  s  > ; 
ex 1 1<  change ) 
end; 
eotoxy<  S  ,  1 7  ) ; 

urite<.  'Enter  new  oud«»»t,   "uthout  '-jeciroals  (Then  press  RETURN)?    '  >; 
readln<  .j  >; 
reoDuoset C  it]    :  ~  J 
end;  Cchanee;: 

oeein 

Dudflae   :=  fal<e; 

cepaat 

clearscreen; 

put 1 1( 3 1 , 1 , '  BUDGET  I NPORMQT I ON  -  ) ; 

put it< 20,3, 'VEftR  AMOUNT*  r>  V£RR  AMOUNT**)' )s 

tor   n    :=   1    to    10  do 
oeein 

j    :=   li   +   10; 

k    :=  ii   *  •*; 

eot  oxy<.  23 » <  > ;   mr  i  te<  i  i  ) ; 
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aotoxy*  32 ,  k 
aotoxy<:45,l< 
aotoxy*  54,  k 
end; 
put  1 1<  26 .  t  R  ,  '  <  Enter 
put  1 1<  30  *  1 7 ,  ' <  Enter 
aotoxy<  38,1*>; 
readt  s  )  ; 
■-ase  s  of 

'Q'Vp'  :  budflae 
'C','C'  :  Chan«»; 
othermi-se  help 
end 
until  budflas, 
Dlubudset  :=  redbu 


;  i.ir'  t.e'  reobud*terr  1 1 1 

;  write<  J  ' : 

•  write'  redbudaetC  J  3  ) 


"0* 


to 
to 


mak  e 
■*uii" 


a  change ;'  ); 


i ■  true ; 


( budget} 


PROCEDURE  ELECT; 
begin 

clearsereen* 

putit(  14.2,'       PRnRfiRTl.TTV  DF  WOP  COMPUTATION  OPTION 
putit(14»5#'   The  annual  possibility  of  %  'H-ar  is  determined 
putit<  14,8,'proD3bi  1  is*  ical  lv  by  a  random  dra«"  whose  threshold 
putit< 14,7, 'value  is  o^sed  on  the  *a<§mt-ude  of  di*i»arity  between' 
eutitt  14.3, 'players"  total  adjusted  utility  fibres. 
put it( 14, 10, '   The  empire  '«ay  eiert  to  override  the  above 
putit< 14, 11, 'computation  mp»hod  *nd  oe  «"eried  annually  as  to 
putitv  14, 12# 'whef her  the  mar  event  i«  to  ta^e  place. 
putit<  14,ifi,'  OVERRIDE  '.v  or  M>  » 

*otoxy<  48 , 1 6 ) ;  read<  "tsrr  ont  > 
endi  Ce!ert.> 


>; 
>i 
)i 
'  >; 
'  )j 
■  >; 
'  >,- 


be^in 

tor  i  :=  1  to  108  do 
beam 

Cle3r«creen; 

eutit(  30,3, '*  Systems  Revipw  **")i 

putitx  7,? , - 1 . ,  .8rnin«e'QlT*r»  default  weaeon  system  budget  parameters' 

put  1 1 (7 ,  .9 , '  2 . . .  ridd  new  ~  <-«**  »ms '  > ; 

PUtit< 7, 11, '3. . .Delete  a  system'  .•» 

eut;t<  7, 13»'4. .  .8row«».-aiter  annual    budgets  +"or   all    ?%m*   ^sr*'  >; 

putit<  7»l5,'5. .  .Elerr,  to  cnntrnl    the  annual    probab  l  1 1  ty  of  mar'  >» 

PUtit<7.17,''6. .  .Obtain  printout  of    al  1    game  systems   and  parameters'  • 


eut  if:  7. 19, '7. 
read<  choice  >; 
case   :no ice  of 


Suit  Urne're  Section   and  beam   *3m>>  el  ay' 


'  1 ' 

: 

alter; 

'  1' 

: 

3.io; 

■'  7  '" 

: 

oe I ete ; 

4- 

: 

oijoset  . 

5' 

: 

e  1  ec  t ; 

'6' 

: 

printsys* 

oes<  i  n 

3S    :  =  rs  ; 
exitc  umpire  > 

*no; 

otherwise  help 

*nd 

end 

end; 

('S|"niMe»; 

oesin 
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prtcnoice* 

brows'? 
end*  Cumr»ir*> 

PROCEDURE  OPSTQTUS  <  person  :  string  ':<: 
forward *  C ops  tatus  > 

PROCEDURE  dliSTQTUS  <  P?r?on  :  string  >* 
forward*  <!  avst  atu?  > 

SEGMENT  PROCEDURE  SUV  (Person  :  stnn«ii  list  :  char); 

i Weapon  procurement  routine,  employs  checks  to  ensure  budget  balance 
is  not  exceeded*  and  that  p».trcHase  rates  are  not  exceeded.   PI  so  allows 
for  scrapping  of  units*  and  acquisition  expenditure  updating. > 

?otit  :  boolean;  l.  n»  Pick  :  \ntf><**ri   choice  :  string* 
ansiuer  :  char*; 

PROCEDURE  BUVMENU; 

forward ;  <  buymenu  > 

PROCEDURE  BUVHOWMUCH; 
war 

mi»ba»man<*»    left,  deficit  :  integer; budget  :  arrayC1..29]  of  integer; 
d»  e  :  char;a***pent»  ispenr  •  rdspent*  expense  :  integer; 

PROCEDURE  CHECK1; 
begin 

aotoxy<  \5,W>i 

"<riteln< 'Purchasing  '**«•****»'    unites)     of   ' »«ysCi ll.name*'    will   excee 
d  the  annua 1  '  >; 

writeln<  '  purchase  rate  for  this  system. 

/ ; 

eotoxyO  8 » 1 3  ? .write'  '  The  system   zmj^X    purchase  rate   :    '  >» 
writelnc  sysdi  3.  pur  limit  >*gat©xy<  J3*t4>* 
write*  'The  number  <~emaimng  f'iyr*  *uncnase  this  '*e&r   :    '  >* 
"•r  i  te  1  n<  sys  C  i  i  ] .  uni tbuy  > ; 
eotoxy* 18* 16 > ; 

writelrX  'Do  you  desire  to  pfircrae*  fe^tier  than   '  .many*'    units?')* 
PutitC 13*17.'  <V  nr  N>  >; 

read*  d  > ; 

if  cd  =   'N'  >  or  (d  =  yn'  i  then 
begin 

clearscreen; 
ex 1 1( buymenu  ) 
»nd 
pise 
r>eem 

putitf  13*16 .'Reenter  the  "".mb^r  of   ?vstem  units  cfesireo  '  >; 

put 1 1<  1 8 , 1 7 . '  < Foil ow  with   RETURN > 

''  ;•; 

neadlm  many >* 

if  many    >  sysdi].  uni  tbuy  then 
bee  in 

PUtltf  19.19.'  <#yy RE  Mr,T  CDOPERPTING!  '»'  >» 

put it< 13*29*'  <' Press   RETURN  to  exit)-')* 

"*ead<  d  >* 
clearscreen* 
ex  1 t<  bi  ivmenu  ; 
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end 
*r\a>  fchprkt  ~> 

:THt  FOLLOWINS  SEGMENTED  PROCEDURE?  ORE  COMPILED  &NO  INSERTED  IN  THE  M&IN 
PRO&RPH  PS  BOTCH  2fl  USING  THE  COMPILER  'INCLUDE"  OPTION,  QUE  TO  PILE 
SIZE  CONSTRAINTS. } 

PROCEDURE  CHECK2<«uch  :  inteser)* 

t«k  :  integer j 

PROCEDURE  WORDS; 
begin 

gotoxv<5*l8>; 

iurit.eln< '1^  you  continue  '.with  thts   purchase  and  do  not.  scrap  arry  o 
ther   systems'  >» 

gotoxy<5»l9;>; 

"iriteln< '' to   low**"  vpijr  OPeratiM1?  cost.*)  you  will    haue  an  annual   d 
ef  icit.      Twice'  ■; 

?otoxy<5.29  >* 

wrxtelr*  'this  anourvt  will   'h?n  he  deducted  from  next  year' ' s  budge 

t„  "  '.•; 

=>otoxy<  15.21  ); 

uiri?.eln<  'Do  -too  wish  to  continue  with  f-nis  acmiisition?' >j 
?>otoxy<  2^.22  >; 

wrif.elrK  '  <y  or  N>'>» 

read*'  ■» ) » 

if   ce   =   'N'  "3   on''"?  »  'n' }   thrw 
begin 

clear-screen; 
exitt  buymenu  > 
end 
*lse 

c  1  »ar».cr»«n 
<?nd  i  C  '■•end-?  > 

begin- 

c  learscreen; 

put 1 t< 36* 1 # ' wftPN  T  W3' > ; 

euti t<  15.2. 'Vou  ha»>e  nor    emu*h   funds   ~<»maining   in  the  year  to  make' 


a 


»utit<  15.3*'  tn*  o>sired   acquisition. ' >s 

90t-oxy<  17.5  ' ; 

writeln<  '  8udset s'  .budeetiyear] 

?otoxyi  17,?'; 

writeln< ''Omount  *R*nt    ="»eviously  ton  ^-auisitions. . .  .-»'  »3gsPent  >i 

aotovyi  17,3  >; 

i*iri  te  1  n<  '  Amount  spent  for  i  nte  1 1 i  gene  e 5',i  spent  '  * 

sotoxyX  1.7*9  J  J 

writelrK  Amount  spent  for  R  %nd  0 , s'  .rdspent  ># 

t  :=  yj 

ton  k    :  *   l   to  nuwof ■systews  dn 

if  systk 3. delete  =  *  then 

t    :*  t  +•  sysCk3.OPCOSTt.tl  s 
sotovy-  17.10  i; 
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uiri te  1  n<  ■' Amount  to  orerate   =al  1   current'  ■•; 
aotoxvv  17*11  >s 

writelnf  '  inventories 5'  >t  )i 

eotovyt  17.12  '■# 

writ*ln<  '  Qmount  r*mainm« s' .  le+'t  >» 

gotox'-x  1 7  .i  13  )  i 

writelrvC  'ftc^uisitior  and  operating  cost.?  '  -'# 

eotox*<  17.14); 

writeln*.  '  of    -ystsid    qfj^rt.tfj   selected ■»'  .much >i 

9dtOXy<  17, 18  ':■ : 

deficit   :=    left   -  w.ichi 

writelrK  'Deficit 5'  .deficit  >i 

iuorc!«. 
end;  Ccheclf2} 

PROCEDURE  BUVITi 
war 

sack. mm  :    integer .del    t   chars 
oesin 

l  f  inanvK  £i  then 
begin 

clear-screen; 

PUtit<24,tfc.'VCiU   nflW'T   PUV   N©WI»J6   UNIT?""''; 
PHjt.  i  t<  24 . 1 1 . '    <  Pr*n%  RETURN  to  Conn  i  nu<»  >  ■  ) ; 
read<  del  ) ; 
*xiubusit) 
end; 
Dack    :=   (  *.y«C  1 1  ].  invent  nr-j-nnany  >-*ysC  i  i  ] .  1  val  ; 
if  back<8  then  back:*$j 
if  manv<=oacif   th*n  m»in   :  =  'iiany 

el<?e   min   :=  oack; 
i  f   i»«»r«  nr»  =  w  I  3y»r«  r  1 1    then 
begirt 

reoleft    :=  redl«»ft   -  manv*SM«;C  i  i  3 .  orrcst-   -  fi»in*sws£  ii  3.  accost; 
rsi^«.p«>nt,    t=   ri««»»nt,    +   ,mn«<u«[nl.iqro'St.; 
r%r t x3.unitbl.iy   :=  rsriil.unitbww  -  inanu; 
rsCii3.  inventor**   :=  rsCii 3. inventory  *  «anv*# 
i~?L  1 1  3 .  oeccstt.t  i    :=  rsf  it  l.opcostttl    +■  r«in  ].oecost.*many; 
r-sCii  ].util«ttl    :=  rsC J  i3.u* i  Istt.l    +■  rsf  n  l.uti  1-5 *many; 
sys    :=  rs 
end 
else 
Sesin 

blulett   :  =  blule*"t  -  iwany^vst  it  3.o»cost  -  "un*sys£n3.a««cost; 
3a^«pi»rit    :*   ba^eeert    *    ,ii>^.*-c>j«r  j  i  1 .  ^oro^t  ; 
osC  ii  1  .unircuy   :=  bsCul.umtbuy  -  i*anv: 
bsC  1 1  ] .  inventory   :  =  bsf i  i  3 .  inventory  +   oany ; 
o-sC :  l  .1  .'iprocr.T.T.  1    :■  O^f  i '  ]  .>-'»<" ostt  r.  1    *  bsC : i ] . 0PC05t*roany ; 
bsC  n3.uti  lstt  1    :=  b*.Ci  1 3 .  ut  i  Lstt  \    +•  bsCii3.utils*«ianyj 
;  v?    : s  bs 
end 
ena;  '!iruvit> 

PROCEDURE  SCRfiPIT: 
<.jsr 

Oack.roin   :    mte,9er;del    :    char; 
be-=»in 

: f  many*,  y  then 
oe«m 

clearscreen; 
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PUtlt(25.»10*'Yu1J  HW'T  SCRflP  N€<3fiTIUE  UNITS1'); 
put  x  t  <  25 » 1 1  * '      <  Press  RETURN  to  Cent- 1  nue  > ''  > ; 
r*»acX  del  >; 
exxtc  scrap it ) 
end* 
back   :  =*  *■<-'«. C  i i  ] .  invpntorvt'sv^r  i  i  3.  tval : 
if  back^S  then  back:=vt; 
if   ,T>ans<=Oact<    then  in  in   :=   n^rm 

else  ">xn   :=  oack; 
l f  person  ■  p 1  avers  C 1 3    then 
be-9xn 

redieft   :=  redieft  +  i*ians-«"*ssCi  i3.opcost..  *  iMn-*sssCii3.a'PCOSt* 
ra^spent   :=  ra«*spent  -  oi>in-*<wsC  i  l  .1-  a«cost ; 
rsCii3.urrit.buv  :=  r*Cii3.unitbws  +  martvi 
rsC n 3 . inventors   :=  rsCi l 3. inventors  -  loans; 
rsCii].0PC0Stttl    :=  rsC l i 3 . npcostttl    -  r?C i l 3.opcost*roans; 
rsCii3.utilsttl    :=  rsCii3.utilst.tl   -  rsC l i 3.uti ls*mans; 
?ss   :=  rs 
»nd 
else 
be«»in 

biulef't   :=  bluleft   *  '<»ans*<s«[i  i*3.0PC0St  +■  inm*sssC:i3.a*cost; 
ba^spent   :■  ba^sppnt  -  MirHKy*£ii  3.  accost-; 
bsCii  3.umtbus   :=  bsCi  1 l.umtbus  +■  mans* 
bsC n 3.  inventors   :=  bsC 1 1 3 .  mentors  -   nans; 
ssC  ii3.oPCosr.ttl    :=  bsC  1 1  3.opro«tttl   -  bsdi  3.opcost*n»ans; 
bsCii3.utilsttl    :=  bsCii 3.utilsttl   -  bsCn3.utils*mans» 
sss   :=  bs 
end 
end;  {scrapit/ 


sera*' 


beetn 

if  person  =  »lasersC13  th*n 
be^m 

oud-?*?*-  : 3  redbud^et ; 
left  :=  red 1 eft ; 
a-^spent  :=  ^i^spont; 
l spent  :=  ri spent; 
rdSPerrt  :  -   rrdspent 
end 
else 
oe«>in 

Dud^et  : =  o I ubud?et ; 
left  :=  bluleft; 
3-5«pert  :-   ba^SPent; 
l spent  :=  bi spent; 
rospent  :=  brd«pent 
end; 
sotoxsv  15 1  1<J  *)  * 
if    iist='c"  then 
oe«nn 

'xriteirx  'MnM  ^ans  units  of  ->y*t.em  '  >sssC  ii 3. name*'  do  sou  want  to 
•■ ; 

road lnt  mans  a 
5>:raPit; 

evit^  Dushoutmijch  * 
end; 
writ*lrK  'How  "ians  units   of    =  ssr.e<n   '  *sssCii  3. name*'    do  sou    nant  to  Pure 
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has  <?'?''  >• 


reacfln<  i«any  j; 

1  f  n»am*    >  *v%C  1  x  3 .  urn  tbuy  r.  hen  chec1;- 1  ; 

ba   :=  >:  sy^C  11  ].  invent orv+t«any>-^ys[  1 1  ].  tval ; 

if  ba<8  then  ba:=8» 

if  n>any<>ba  then  n>i    :=  inany 
else  mi    :=  baj 
*rf**rr?.e  :  ■  svsi  i  i  3 .  **cost»#*»i   *  sy«Ci  i].o*co*t.#manvi 
if  *yp<»fV5(?   >   Laft  then  chect^'evRPnee '•  • 
buy  it 

Cbyshownuch} 


enOi 

PROCEDURE  BUVHEHUi 
PROCEDURE  NEXTti 


PROCEDURE  NEXT2J 
beetn 

S0T0XV<38»13>j 

write*  '  *' *^v?C  1 1  ].0Pco?t.  ■>; 

i50T0XV<  47,13 '); 

write<  sy«C  i  i  I.u&ils  >► 

G0T0XV<35,l3)i 

wr  i  te<  5 v?  C 1 1  ] .  i  in  i  tbw )  # 

SOTOXV<«55»13>i 

wr l te<  '  %'  . SM*f  n  ] .  OPco«t.TTL  ■'  • 

SOT0XY<73..13  •; 

wr l  te<  *y*  C  1 1  ] .  ut  1 1  <TTL  >  : 

PUtlU  1,14,-' 


end; 


<;ne^t2> 


pe-*in 

?otoxM«,  l ,  7  ^ ; 

mri  tel  n>:  ' 

mrtteln' 
"•riteln<  ' 
wr  i  te  1  m  ' 
»miteln<  ' 

writ-einx  ' 


put.  i  tt  4*8*'  'JPOPTED   SYSTEM    I  MPTiPMOT I ONs  v  '' : 
pijT,it,ci3,ii5,'  on  op 

rOTflL  '  )i 

put  1 1<  2  f  1 1  . '  SVSTE+K  TVPC  >         T  H' .'FMTnpV  COST 

ORCOST     IJTTLS    ■'">, 
S0T0XV<2*l3>i 

i'initein<  ?ysC  ill.  name*''  '  .*^«C  t  i].  Tort*'  ':■: '  >i 
i50T0XV<21#13>j 
wr  i  teX  sys  C 1 1 .1 .  i  noonT  cry  > ; 
SOTOXYX  38 » 1 3  •'  r 
»inir.e<  '  S'  ,  sy«i  1 1  ].A©CO*t.  >  j 
next2 


COST 


PURCH 

UTIL3  LIMIT 
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*nd ;  ■ '  r"»i»vT.  i  ';.- 

be*  i  n 

clear-screen; 

OUt I V  4 , 1 . ' S VSTEM   I NFORHGT  T  ON : '  > : 

wjf.it<8»3»'  9©  HP  PURCH  T 

OTfit,  >; 

pijT.it<2,-»»,5VSTEH<TVPF-'1        TNtiPHTOPV  TOST  COST  UTILS  LIMIT 

OPCOST     UTILS      ■  >; 
SOTOXVK  2>%>i 

writeln<  ;m<[  i  i  ].n  ■»«»»,'<  '  ,*v«r  i  i  l.sort* '  >: '  >; 
SOTOXVt  21*6  J. 
writ*<  ?<*<.[  1 1  ].  inventory)* 
SOTOXY<30»8>» 

wri  trt  '  S' .  ;v5C  n],  SQco^t ) » 
S0T0X¥<38»S)j 

write*  '%'  .*v«Ci  i  ].OPco«t  >; 
SOTOXVt  47.6  >j 
writeX  svsCl  H.uti  Is  >» 
b0T0XV<55.6>; 
wri  te<  sy«-C  ill.  um  touv  > . 
80T0XV<65#6)i 

wri  te<  '  *'  .*y«.C  1 1  ] .  OPeostTTL  )j 
80T0XV<73.S>J 
mr 1 te<  ?y«.C  1 1  3 .  uti 1  -%TTL  ) ; 
DuwhownHJChi 
nextl 
end  *  '•  h  u  v«emi  > 

PROCEDURE  WRITEFIRST; 
EMM  in 

9etox*<  15.15  ># 
writeln<  ' 

writelrrt  ' 

'  >; 
writelr*  ' 

■•  *  — 

write  I  n<  ' 

.'  i 

?ot.oxv».  12j.  15  >; 

mr i t .i»  1  n<  ' Ent .er»  '.he  n^me  of"  rt>*»   :««» s«  ',irn«*   t  rv.'ent.orvi  "?»ou  wish  to   alt-er. 
•'  > 

ends  fwritef  ir^O 

PROCEDURE  HRITESECONOi 
oe^in 

30tox*<  15.14  >; 
writeln<  ' 

>; 
'"rit.i?ln< 

'  >» 
(■•riteirK  ' 

'>; 
write!  n<  ' 

write in< ' 

?otoxv<  15.15>, 

"ir  I  tel rK.  '  Oo    VCU    m^t-    to    ««*i<P    *nnT.Vif>r    -h^rvop7,     '   >i 


109 


?otox-=rt  15*16); 

writeln<  '  <^  Enter*  V  or  M>  >; 

read*'  -sn-SMter  > ; 

if  (amiwr  =  'V  >  or  <  vwwer  =  ■'•*''  >  th»f* 

px :  t<  bus  > 
■?l*e  caee  list,  of 

' a'  # 'c'   :   exi  t<  o»»status  "■•  ; 
'b'    :   exxtX  wst-afcuO 
end 
end  ;  <!  nil1*  i  ft  <?«  ec  ond  > 

Deem 

for  i  :=  1  to  199  do 
beein 

if  i  =  1  then  writ*fi«**t 

else  mri  teeec ond ; 
PUtitX8»16#' 

'  ); 
PULittf  17*16*'  -'    Follow  «it,h   PFTURN   >  '  )-, 

put  it<  27*17* '<        Tmt«»  D  ro  Oijit,        >"">; 
readlnt  choice > ; 

if  '.choice  «   '0' )  or  'choice  =    'n*  ) 
then  c aee   1 1 st  of 

'a'»'c'   :   exit<o*»*t,atu*>s 
'b'    :   exit<  aw^tatu*  > 
end; 
11    :=»  di 
eotit   :=  false? 
repeat 

n    :=  n   >  1; 

if  (choice  3  sv*C i  i  ] . ra*»e )  or  <    ii    >  nijmof swtaw*  )  then  eotit  :=  tru 

unt 1 1  eot i t  j 

if  choice  3  sve [ i i ] . name  then  buymenu 
el-se 
oeem 
help; 
exit< bu*  > 
end 
end 
end;  <"buv> 

SEGMENT  PROCEDURE  RDSTflTUS  (person  :  string); 

<.Called  from  roain  menu.   Pno»id#s  f"or  procurement  and  display  of  new 
R&D  opportunities*  •snelwed  P&-0  Projects*  %nd  PfOject-s  in  mnrk. 
wl  low?  »layer  to  chanee  the  status  of  anv  »»»oji?c-'..   Updates 
shelving  penalties  and  all  R&0  expenditure  f  i eur<»« .  ':• 
uar 

*uitflae  s  boolean;  d  :  :ha"~;  title  :  strings  left*  .nucn  :  integer; 
a<^^p«pnt,  i?pent*  rdspent  ■  intjeeer;  budget  :  ^rr^y  CI.. 291  of  integer; 

PROCEDURE  PDHEP0ER< where  :  integer)* 
Deem 

clear^creen; 

Put  i  t<  28  * where .title); 

?otoxv<  1  *3  .<  i 

writeln< '         YRS   R&Q  TOT  vr«  vr  t  '-"ft  2  VR  3  uCQ    OP 
PURC  •■; 
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writ*ln<  'NfiHE<TVPE:)  COMPLETED   RE0"D   COST  COST  COST  COST  COST 
UTIL3  RPTE':'; 
write In 
end  ;  C  rr*wad«f*  '* 

PROCEDURE  LISTIT  <  1,  counter  :  integer  •; 

1  *  itany  :  i  ntes-er ; 
besin 

1  :*  5  +  counter; 

?otoxs<  1  >1  >;i»«rite<  svsC  i  3. name. ' ' '  »s'-»*t  1 3 .  sort.,'  V  >; 

sotoxyt  16.1  >;writ#<sysCil.yrofRaO>; 

i«fw  :=  8; 

it"  sysEi3.yr3RaOcost    >  &  then  r«anv   :=  3 
else  if  sy*Ci3.yr2RaOcost    >  8  then  ^an*   :=  2 
else   if  svsC  1 3.yrlRaf":osi'.    >  a  then  nan<*   :=  1; 

sotoxyc  26, 1  .';write<  n»any  >; 

sotoxy<32.1  >;write<  '#'  ,svsC  1 3.vrtPa0cn«it  >; 

sotoxy<38.1  >;write<  '5' ,sysC  i  3..-"r2RaO<:ost ); 

sotoxy<  44,1  >;uirite<  '#'  ,;<-<«[  1 3.  yrTP^Ocns*  >; 

90toxy<58,l >i«rit«< '*' ,sysCi3.i3G»cost >; 

3otoxy<58»l  >jwrtt«K  '*'  »sysr  \  3.0Pcost  :•; 

sotoxM<.  S3  *  1  >  ;iijt  i  te<  sssf  i  1 •  uti  Is  > ; 

sotox^  78, 1  >;wrir.e<  svsC  i  l.eurl  imit) 
end;  Clistit) 

PROCEDURE  CHECK; 
uar 

t,n, deficit  :  integer;  c  :  >-har; 

PROCEDURE  WORDS; 
Desin 

sotox*<2,18); 

i'<riteln<  ' If  '-inu  continue  mi th  thi«  prniort.  and  do  not  scrae  or  shelve 
anv  other  «vKs,t.»m^'  "•; 

90tox»*<  5 » 1 9  ) ; 

writelnX '( to   1  0"'er  your  op***^  in*  cos?.s  >  '.*ou  '"ill    ha»^   an   annual    defic 
it.  '  Tuice'  ■< ; 

=»otoxv<  11,281; 

"•ri teln<  '  this    amni.inr   mj}.'    rh»r»  h»   ^t>r^\rf»<i  fr^ym  ne^t  '^eary " s  Dudset. '  ) 
; 

?otoxv<  15.21  ">; 

»iriteln<  ' Oo  you  wi«h  ro  continue1  witn  this    iwe^st^wwt?' )# 
sotnxyv  28  »22  » ; 

I'iritein'.  '  <V  nr  HV): 

read<  r  >i 

if  <  c   =    'N'  ''<  oKc   =    'n'  '   r.hen 
bes-tn 

c  learscr^en • 

exit*  rrJsT,.%T.ijc,  j 

•?nd 
end;  t words "J 

oesin 

clearscreen; 

Put 1 1<  36  # 1  * ' WORN I NR '  - ; 

eutitt  15,2, ' Vmj  na*-"*  not-  •»no».i'»n  ^unds  <~e«»ai«in«i  in  the  ^ear  to  i«ake'  ■>; 

putitt  15,3,'  the  desired  ini>e*tment.. '   >; 

?otovvv  17.5); 
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"irit>?ln< '  Sudset ....,.,....,.., ,., . .  .3'  .budsetfyearl  >* 

?ot,oxvi<  17,7  :■» 

mriteln*  '  ftnount  spent  previously  +',"|t~  acquisitions* . .  .-*'  ,-3^<pent.j» 

mri telrK  '  Qmnt.mt-  spent   for   int el  1 »  "ngn^e, s'  ,  1 spent  >; 

sotoxyt  17  »  9  )  .s 

write!  n<  '  Qmmjnt.   pre«iQir*ly  spent   for  R   3rd  D. S"  »rdSPenfr  >» 

t   :=  9,- 

for  n  :=  1  to  ouwofsystews  do 
if  s**sCn3.  delete  *  8  then 

t  :=  t  +■  s  ys  C  n  1.  opt  os ttt !  # 
s-otoxyi  17,  I*'. 
mritelrK 'Amount  to  operate  all  current' >$ 

SOtQX*<  17*11  )i 

write lnt  '  inventories sy  »t)i 

sotoxvt  17,12  ^i 

»iriteln<  'fl*ount  r*>f»aimns , $'  ,  left )* 

sotoxyt  17,13^* 

"iriteint'R    and  0  costs  •'  including    r»ty  Ppnalty   fnr  '  >; 

SOtOXyt  1 7  *  1  •*•  >  s 

writelrtf '        shelving  ">  for  weapon  system  selected.. .  .  jr'  wwjch>; 

SOtOXy<  17,11$); 

deficit  :»  left  -  much? 

I'trTT.ialrK  'Oet'icit $'  »def icit  >» 

words 
•?nd*  frhecte"'' 

PROCEDURE  CfiO. 
'>ar 

i»  counter,  mhpre  :  integer; 

PROCEDURE  CHOOSE 1; 
<>ar 

e  :  string*1  .i  :  integer*  «  :  char; 

PROCEDURE  M0NEV1 ; 
&e«un 

if  f»#f»-s.nr»  —  PlayersC 1 1   then 
be?  in 

muc  h  :  *  ^*^  C  "  "I .  i-«~  i  P  =rOc  ost ; 
it"  inuch  >  redleft  thet">  c*<?ck, 
rrdSPent  :=  r«e»ds»en*.  +■  r**.f,  i 1.  ^rtPaDco^t; 
rpdleft  :=  redleft  -  r?CJ  ].yrlRaOcost 
•?nd 
?lse 
be^in 
much  :=  osC  i  T.  y*'.Rau"co**  • 
if  bluleft  <  'flurh  then  check ; 
Drospert  :-  brdSPent  -t-  h«.f  J"! ,  yr  1  RisOcos*..; 
bluleft  :=  bluleft  -  dsCj  1.  yr'P-sOco-s.t 
■?nd 
■?nd;  {foonpvi  "'• 

D*«iin 

Putit< 19*14,'*  MOTE:    QLL  ^EW  R««"J  pro. jrcts  WILL  BE  *' ">; 
PUtit<  19,15,  '*  SHELUED   3T  vEftPENO  UNLESS   VOU 

PUtlt<  19*16*'*  MOM  ricc-Tc,HCtTE 

SO*  0*yi  1  7  ,  1 3  i ; 
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■  :n 


(oritein*  'Vou  ha*'e  5', !>»+>.,     r<xr\a i n t n-?  in  this  year"'*  budeet' >; 
eutitt  7*28# 'Enter  the  n3»»  of  the  system  mhos*  Rk-0  you  wish  to  besm: 


Type    '  '  =»U It."     tO    =*.>  1 1  > 


'    >i 


PUtltt  ^,<fl  ,' 

s*otoxy<  65 .28  '> ;readl  rK  e  > : 

it'  •»  =  'Quit' )  or  <■  e  =  '^HTt.'  >  then  evitXcrd > 
•pis'? 
be-?m 

tor  i   !■  1  to  rn imof svs* ems  do 

if  sys C  i  "I. na**e  *  e  then 
besm 
noneyl ; 

sys  C i ] . status  :  =  2  * 
i f  person  -  • !  ^yers  C 1  3  then  r?   :  =  «.<*? 

else  bs  ; a  sys; 
C  lP3rscr*»en; 
sotoxy< 13*13); 
"irit.^irK  '&.ZQ  funding  h?^  b<»en   allotted  f-o  pursue  system  ', 


* » •'   de<;e  1  opment . '  > ; 


e*>tit<  13,11*' 
r»ad<  i«  » ; 
ent<  crd  "> 

end 


/Pk>»«<5  o^TURN  to  continued  >i 


end 


end; 

Help 

end; 


<!ch<"io*el  > 


Oe-9 1  n 

courts   :=  3; 
n»ri»r<»   ;  s    i ; 
C 1  e  arscr<?ert ; 

title  :=  'HEW  Rx-0  OPPORTUNITIES"! 
rdheader<  inhere  > ; 
r'or   i    :=   l    to  numof systems  do 
oeein 

if  '■  sysC  1 1.  yrPaOstart.s  ''=  wsr  •   and  CsysCi3.statu«  -   \>  then 
if  sysC i J. delete  =  3  then 
oe-?tn 

counter   :=  counter  +   1; 
I :  stif,  l  >  counter  ' 
end 
end; 
c noose 1 
era;  Crrrf} 

PROCEDURE  CNRO  j 

uar 

!,inere>    i»  count. er   :    integer;. 

PROCEDURE  CH00SE2i 

e  :  strtn-s;  .i  :  integer;  m   ;  -n^rs 

PROCEDURE  M0NEV2i 

PROCEDURE  *0NEV29; 
besin 
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if  OsCjl.yr*fRaO  =  9  rhpn 
bP<?in 

brd^ppnt   :-  hrd««»»i».  -  f  h«r  1 1 . 'je»<R.:*Oco?t  +■  b«C -•  J.ppnalty  >; 
blulfrft   :=  blulpft    *  ■:  ta*f!J].yrlRaOro-=T.  +  b«Cj 1 .penalty > 

it"  b%C-j  l.yrofRaO  ■   1   then 
OP^iin 

brd«.ppm.   .-  =  br'i-jpont.  -  •:  h-?  C  j  1 .  yr  I'RaOcost  +  o«  C  J  ] .  ppna  1  ty  .> » 
biul«ft   ;=  b)i.tl»+''t    +>  ''b«C  i"].*r2RaCico<5t  +  b< C  J ] . p-?na I ty  •■ 

if   D-a.[.j].>Hrn+'RaO   =   2   thpn 
bP9in 

ordsppnt   :=  brd^ppnt   -  '  b-*[j  ] , '-•rvRaOcost  +■  b<?[j].ppnalty  ••; 
blulpft   :=  blulpft  +  <  b<CJ3.«f.7RaO<:o'ST,  +  o<»Cj  "l.ppnalty  > 
pnd 
»nd*  fflW*rwy2a"> 

bp-?in 

i  f   ear?on   *  p  )  aypr*«  C 1  ]    thon 
Op*  in 

if  P5CJ3.yrofRaO  =  9  then 
be-9in 

rr^j*.por>x.   :-  ri~<i*.pi»rrr.   —  i  r*C..n.yr*tRaQcost  +  r*Ci  ].  penalty  a 
rpdlpft  :=  r*dl*»ft  *  (  r^.C.iJ.yMRaOco^t   *■  rs C J  ] . ppna  1  ty  > 
pndi 
if  rsC J 1 . yrof RaO  =  1   thpn 
Op*  in 

rrb^ppn*-    :=*  r»r»r}-*pont.  —  '  r-?f  j  1 .  yr^RaOcost.   +  r**CJ].ppnalty  ); 
fprjlpf?.   ;a  r«»<3lpft   *  •'  r«  C  J  3 .  yr:?RaO«:  o^r   +  r=  C  j  ] .  ppna  1  ty  :• 
pnd; 
if   rsCJl.yrnfR.aO   =  2   thpn 
op*  in 

i«rvj«p»rtT.   :=  r*r»<5fpanr.   —  •' n-*.  (\i  1 . -"r^RaOco-st.   +■  r<[  j  ]  .ppnal  ty  ■; 
r«»rj  1  pf t.    :  =   n»n  1  pnPt    *  '  »~<=.  r  j  1 .  vr^PaOc  0*t    +■  r*  C.j  ] ,  ppna  1  ty  > 
pfwJ 
*nd 
pI-sp 

n»nnpy2a 
pnd  i  { in»onp«2  > 

bp-?in 

?Otoxy<  1 7  >  1 9  ) ; 

"iritpln*  '  Vnu    haup    5'  ■  1**'*.»       *«fMm!nfl    in    thi*    -^Par'  '  =■    bud-??*..'    'i 

PUtit<  7,21  *  'Entpn  tnp   nai«p  of   w   s«*%t,Pi»i   mno*p   R&O    jou   mi=h  to   snpK'p; 

etjtitv  7,22>'  -'Tup*   ' ''^jiT."    r,0   «iuit.>  '  )j 

*otoxy<  h*5  •21  >  ;rpad  In*  *  '» • 

if  '  p  =   'Quit'  )  or*  (*  9   '  '•.'it.    ''  t.hpn  pv i tx cwd ) 
p!  ** 
0P9in 

fr"ir~     J     :t    1     to    fHjrt»n+'--'-,«T  «!«•?    do 
tP^iirt 

i  f    =>y«  C  :  ] .  nam*   »  »  t  h*r* 
bP^m 
•■lonpyi; 

sys  C l ] . statu*   : =  3 » 
tf   PPrson   =   p1  WSf^C  1 3    r  *^pn   "^t    :=    ?y« 

p  1  -?p  b«    :  =   5vs ; 
c  '  p%r^cro»r> ; 
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witelrK . 'RMD  Punrtin*  has  cut  from  further  pursuit  of  syste 
»e » '    de*->e  1  oement .  "  > ; 

putit<t9.tl,'  < Press   REHJRN   to  continued  >i 

re;*^  in  > ; 
?>'ir  ( cnro ) 
•?nd 
»nd 
»nd; 
neip 
end;  0:hoo«e2} 

bee  in 

counter   :=  9; 
i^«?r<?   :  =   1  i- 
c  1  ear-screen; 

title   :=  "CONTINUED  P*,0  OPPORTUNITIES'? 
roheader<  itihere  ) ; 
tor   i    :•  1  W  numof<v*t em*  <lo 
beam 

if  csysCiLyrRaOrtarfs  <■  w?r>   gnd  <  «y«; C i ]. status  **  2)  then 
if  sy*C i].del»te  =  9  then 
be**m 

counter    :=  counter  *   1; 
listit<i»  counter > 
end 
end* 
choose2 
*ndi  C.rnr^iy 

PROCEDURE  SROi 

'•mere*    i»  counter  :    mteeers   f   :   rh^r; 

PROCEDURE  CHOOSES ; 

9   :    strins;    i    :    inteser;   >n   r    char; 

PROCEDURE  MONEV3* 

PROCEDURE   H0NEV30; 
oesm 

if  bsCol.^rofRaO  =  *  ?hen 
besin 

much   :=  i->«Cj].  yriRaOcos*.  +•  *sC j] .penalty* 
if  >«uch   >  biule+'t  then  check; 

ordspent.    :=  brospent  -»•  •  bsi".i].yr*!RaDcost  +■  bsC'  ]. penalty  >i 
bluleft   :=  blul<»+>    -  ,/b«l"..i"!.yrlR^0co«t.  +  bsfj  1. penalty  > 
•?no; 
if   0-sCjl.yrotR.aO   =   1    f.h.?n 
Deem 

nuch  :«  b«Ci1.yr*2R^0ro-5t  +  b*f J 3. penalty* 
if  wen  >  bluleft  then  check  ; 

brd^pent.   :=  ordspent  +•  cb?C.i].yr2Ra0cost  +  bsijl. penalty >; 
bluleft  :=  bluleft   -  f bsCJ].yr2RaOcost  +  bsCJl. penalty) 
»nd; 
if  bsCJl.yrofPaO  =  2  then 
oesin 

inuch   :  =  bsf .i  ] .  yr3RaOcost  *  b*C J  3 « penal ty ; 
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CTS "'  >; 


if   much    >   bluleft   then   check  > 

t?rd<p*ot.   :=  rirri^pent-  +  < bsT J  "I.  yi"3RaOco*t  +•  psCj 3. penalty  •; 
bluleft   :=  bluleft  -  '■  b«CJ3.yr3RaOco«t  +  tfsCJl.penalty) 
end 
■?nd;  f>oney3a> 

beein 

if  pgrgow  =  p  1  ^V'?i~i [  1  ]   then 
beein 

if   r«. [  j  ] .  ^rof PaO  =  @   then 
beem 

much   :=  r*(!  O.  v»'»!Rauco<t  +  »**CJ  3. penalty; 

if  imjch    >  redle*'t  then  che<*^; 

rrd«pent   :=  iTd«*ent   *  ( r»«r.,i]  ,>-tr!PaCcost  +  r«.[„i  3.  penalty); 

redleft   •=  redlp+*t    -  < ><r.i  1.  yrtPaOco«t   ♦  r«5tj  3.  Penalty) 

if  r^C^.yrofRaG  =  1   then 
bee  in 

much   :=  >~<C ■'] .  y»»2Pa0eo*st  +•  >*«C  J3.penaltyj 
if  mucn   >  rpctlp+^f-  then  chprk ; 

rrd*p*»nt   :3  rrvt^ppnt    *  £  r«t{  i  1 , yr*2Ra0co*t  *>  r^tj 3. Penalty)* 
rod  left   :=  red I eft    -  '  r**r  i  3.  y**2Ra0cost   +  reEjl.penalty) 
enc; 
if  rsCj3.yrofRaO  =  2  then 
be<»in 

much  :=  i~?C  ' j.yrTR30cr>'5i'.  *  r-sC.j J. penalty* 
if  much   >  redleft  then  check; 

r**d?Pent   :=  rr<-j«o«»nT-  +  *  r-*C  •  1  .  yr3Ra0ccr*t  +  r*[j3. penalty); 
redleft   :=  re»3I*»ft  -  < r*.f.j3.yr3RaOcost  +  rsC J 3. penalty) 
end 
end 
else 
money3a 
end  ;  ''  p»m«pM3  'i 

PROCEDURE    LIST; 

*,   count    t    integer; 
begin 

clear«cneert; 

Putit<ie*l*'PPNfiLTV  PPIPPQ  por  RPSUHIN©  PREVIOUSLY  SHELUED  P&O  PROJE 

p«jtir.«  25*3* "5y«tpm<  Twop  >  Penalty  >; 

count   :=  5; 

for  *<•:=!   to  numofsysten*?  do 

if  '■  sysCk  1 .  status  =  3)   and  «"sy*tkl. delete  =  £)  tnen 
bp?in 

3QT.ow<  2P  .cn,."^T  Jsiiirit  p<  sy^fk  1 ,  n^*»»e» '  (  '  -svsCk  ] .  sort*     ">'  )i 
eotoyyt  55 » f.  cunt. > ;  wr  i  te<  '  S ' » s^*  f!  k  1 .  »*n.9  i  ty  r ; 
c  ount  : =  c  ount  +•  1 
eno 
end;  O.  ist> 

beein 

p'.'ti tv  15*21  •  'Fnter  0  to   advance  e^ee  f-o  Liiew  penalty  prices   '  '; 
putit<  15.22* '  <PnT,e**  0  to  <*uit>  '  >; 

reacK  f ) ; 

it  •:.  t '  =   'Q'  «  or  ■' f  =   '  ^'  >   'hen  eyi.t<«r*ft)» 
li-st* 
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30tOXV<  1?.19>J 

k<ritelnv    Vou  na^e  S'  •  1  eft i '    r«iri.3 irvtrc?   in  r»is  year"*  budwt'  >; 
p«it,it,<  7*21  *  'Ent.pr  th»  naf«<»  of    =inM  «Mct»,rt  iiii^o«*  P%0  v<iu  wish   to  resuine: 
'  >i 

•wjtitC  7*22.*'  «fT*«w?   ' '  "WiV '    to   *jit>  ''  ># 

sotoxv<  S6»21  J»r<?=»din<  e>! 

if  ( e  =   '5uit' >  or  '.  e  =  '^•jit.">  then  pvit/srd) 
else 
Oesnn 

for*  i   :=  l   'n  numo^sys* nn  do 
begin 

if  svsCi3.name  =  e  then 
begirt 

sys  C  i  ] .  status  :  ■  2 ; 

\  f  person  =  p  i  s^ers  C  13  t  hen  r«n  :  ■  svs 

pl^e  bs  :=  svs » 
c learscreen? 
sotoxyv  4 * 1  Pi  > . 

writelrK  'RfeO  fundins*  has  resurrected  for  further  pursuit  o 
f  system  ' i?, '  development. " >  a 

putit<  1(5*1 1 *'  <P»»ess  RETURN  f,o  continue/'  >i 

read^  «  ) : 
exit(  srd  > 
■end 
end 
end* 
hele 
end*  <!choose3> 

begin 

counter  :=  £: 
"•here  :  =  1  j 
clearscreen; 

title  :=  SHELUEH  P*0  OPPHRTW!  TIES'  '> 
rdh<?ader<  utnpr*?  *; 
f'or   i  :  =  1  to  numof svs*  *ms  do 
besin 

if  '■  svsC 1 3 . yrRaQstarts  <3  y#ar>  and  '  r«sCi3. status  =  3"'  then 
l f  sysC il.de! ete  -  *  t h*n 
be*>m 

c  ounter  : =  c  ounter  +  1 ; 
1  istit<  i  *  counter  ) 
end 
*nd# 
chooseS 
»nd;  <srd> 

oeem 

^uitflas  :=  false; 

if  »erson  =  el aver sC 11  then 

besin 

I eft  : =  redl ef t  j 

budeet  :  ■  ^edbudeet  * 
a^SPent  :=  ^^spent; 
i spent  :=  risyent* 

rdspent  :  =  rr*t«pi?nt. 
■?nd 
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li?ft  :=  blulfftj 
bud*<?t.  :  =  blubud^Pt.; 
a^pw,  :=  o**«ppnt : 
i«p«»nt.  :=  bi  spent, » 
rd«p«?nr,  :=  brd?**nt 
»nd; 
clearscreen; 

pijt.it<29#3» 'RESEARCH  ONO  nEnELOPMEMT  PROJECT  STRTUS"  >* 
PUti*,<  22,8.  '0. .  .NEW  OPPORTUNITIES'  ) : 
put:t(  22*18#'8.  ..CONTINUING  OPPORTUNITIES'  ^j 
Put.  l  t<  22  >  1 2  , '  C . . .  SHEWED  OPPORTUN I T I ES '  >  i 
PutiU22.»14»/Q...(5UIT'  )» 
r<?ad<  d ;  # 
cas<?  d  of 

'«'#'*'  :  CROi 
'8'*'b'  :  CNROj 
'C'.'C  :  SROi 
'Q','^'  :  quitflas  :»  tru*s 
otherwise  help 
end 
until  qui tf las 
end;  <"  rd«tatu<  > 


118 


:TH£  FOLLOWING  SE5MFNTEO  PPorenj  >oce  qdc  r-0MPTLpri  m*0  TNSEPTED  tN  THE  MAIN 
PR06RPM  QS  BOTCH  ?B  USING  THE  COMPILER  'INCLUDE'  OPTION*  DUE  TO  FILE 
SIZE  CONSTRAINTS.} 

SE6MENT  PROCEDURE  &STOLL; 

< Initial  ires  all  parameters  it"  same  i«  a  resumption.  > 

PROCEDURE  SETONEi 
var 

temp l file  :  file  of  teme; 
bee  in 

reset*  tempt  fi  1  e* ' TEMPO:  tempo  1 .  -1a'  3"  > i 
with  templfile*  do 
Deem 

■*ezr:  =tyear ;  red  1  eft :  =?  red  1  e*  t. ;  o  1  u  1  e*"t :  =tb  I  u  1  eft. ; 
ramseerrt:  =tr  a«spent  ;ba*spent :  =tba«i«pent, ; 
ni  ?.pent :  =tri  spent ;bi spent:  tbi<ww  ; 
rrdseent:  =trrdspent  ;brdspent:  =t brdspent ; 
numof  systems:  =tnijmof  s<-*stems ; 
roa : =%roa ; roo : *trob ; rda : =trda ; r db : =t  rdb » 
boa:  =?,boa;bob:  =t  booibda:  =tbda;bc)b:  =?,bdb# 
ro: «tro ;rd: =trd ;rrdo: =trrdo ;rrdd: =trrdd ; 
fro:  =tf  ro  *  f  rd:  =tf  i*d  *  f  rrdo :  =*,f  rrdo  ?  frrrJeh  =t-f  rrdd  ; 
bo: =tbo ; bd: =tbd ; brdo: =tbrdo » brdd: «t brdd ; 
f  bo:  =tf bo; f bd:  =».fbd ;  fbrdo:  =tf  brdo;  fbrdd:  »t fbrdd* 
marc  ont :  =t ware  ont ;  W :  =t  p»*tr ; 
plavers:  =tpl  aver*  ;redbudeet:  =?.reflb»Jdeet.* 
b 1 ubudeet : =tb 1 ubudeet 
end* 
close<  temmtf  ile*lock  >; 
case  prtr  of 

'  1 '  :  rewr  i  tet  z, ' .  RS272'  "■ ; 
-2'  :  rewrite* z*'. SILENTYPE' "> 
end 
ehd  i  1  ?et  one  '."• 

PROCEDURE  'JETTWO; 
<>zr 

temp?*'-  ile  ?  file  of  5v«'.e«« ; 
besm 

reset*  temm2f  1 1  e , ' TEMPO: tempo2. data'  '"> ; 

rs  :  =  t«wiw»2f  ile^j 

set*  temm2f  i  le>: 

bs  : ■  teme2f i 1 e~ ; 

art<  te#w»2f  1 1  e  > ; 

c  lose*  teme2f  i  le*  lock  ) 
end  ;  C  set-two  } 

begin 
?etone  ; 

99?,  tWO 

*r\Qi  \  set  all.':- 
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fTHP  POL  I  nwTrtfr  NnwceftHCwrcp  oonrcnnocc  noc  rrw-oTi  en  oun  tnspptpo  IN  THE  HflIN 
PR08RPH  as  BOTCH  13  USING  THE  COMPILER  'INCLUDE'  OPTION,  QUE  TO  FILE 
SIZE  CONSTRAINTS. > 

PROCEDURE  INUENTORV  (*,  y  :  inteeer); 

{Called  bv  routines  Qpstatus  and  Pustatus.   P~o*Mdes  list. in*  of 

system  par  Meters.  > 
be?in 

y  :»  y  +  7; 

ijOT0XV<  2,y>; 

"iritelnt  sysC a]. name,  '<  '  .sy^ral.sort . '  >'*':•'  >; 

80T0XV<21*«>J 

mr i te<  sysC  a] . i nuent orv ) ; 

G0T0XV<38»y>; 

write<  '*'.»svs[aJ.POcost>» 

S0T0XV<38»y); 

write< '*' ,sysCal.OPcost >; 

S0T0XV<4?,a)j 

mnte<sysCa.].utils>; 

80T0XY<55»»>J 

wr  1 1  e<  sy  s  £  a  ] .  un  1 t  buy  > ; 

S0T0XVfS5#»>i 

writer  ' %'  ,svsCa3.0PcostTTL>: 

S0TQXY<73,w>i 

u»ri te<  sysCaJ . uti  IsTTL )» 

end;  C inventory^ 

PROCEDURE  UPOOTE  <  person  :    string;    amount   :    integer); 

<!  Performs  annual   handshake  with  elaver«,    in  turn*    and  verifies  codewords 
for  access. > 

d  :    char;flae   :    boolean;word   :    strine; 
Des-in 

c  1  e  arscreen  ;wr  i  te  i  n  ;wr  t  t.e  1  n ; 
flaa  :=  false; 

mritelrK "  Vcu  ar«  about,  to  oeein  year    ',year,'   of  TEH 

PO. '  i'iuiritelnj 
writeln; 

'uritelnX'  '.p»r«nn,'    is    nomentanly  to  make  his/her  annu 

al    '  ); 

mr i  te  1  n<  '  bud?**  arv  dec i s l ons . '  > ; 

write  in .write In; 
r-?p«?at, 

writ.e<  '  ENTPR  cnnPVJ0RD<  cursor  remains  fixea;:    '  >; 

read  1  n<  lc  <?vooar<j ,  i>iord  > ; 

if  <  person=»  i  ayers  C 1 3  >    and  <  word**  1  avers  C 11  >  then  PI  a*   :=  true 

else   if  <  person=»laversC2]  ^   and  •• '  morrr=» I  aye»~s C 4 1 )  then  flas   :=  true 
else 
oe«in 

i*jt.it<0»8»'  CODEWORD  WR0N6'  TRV  OSS  IN 

•  '    •  i 

PUtIt< 9»S»' 

'  '>; 

?otoyyv  w ,3  ' 
eno; 
until   flae; 
n*ritein;writeln» 
writelm  '  The  oude»t.  for  *.his  year   is   %' » amount  :>» 
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wnteln< '  fThts  fi<n>r-»   rfne<  ^,->t  ro*  Urt,  inw*ntory  operating  COS 

tsy  ■>; 

write  lrx  '         for  the  current  year.   '?ee  the  Main  Menu  for  more  infor 
wax. ion )'  ■' * 

w^itelniutritelniwritelniwritelni 

witelrK  '  Pre«s  RETURN  f,o  obtain  the  Hain  Menu.'  ># 

re-aa<  d  > 
end;  <"  update  > 

PROCEDURE  WHOPLwYS; 

£ Obtains  elaver  information  from  a  datafile  created  bw  parent,  chained 

proeraw. > 
uar  1  :  integer; 

datafile  :  file  of  string; 
Dee  in 

re-sett  datafile* 'TURNKEV1  mane,  data"  > j 
for  i  s*  1  to  4  do- 

playersCil  :=  datafile^; 
aetcdataf  lie  >; 
''.  mr  i  te  1  n<  p  1  avers  £  i  ] >  > 
end* 
close*  datat  ile > 
*ndi  <JMhoPlass> 

PROCEDURE  PflSEK  person  j  strtn«»  list  ;  char.)* 
i Called  bv  Qpstatus  and  flustatus  routines.   Provides  for  the 
appropriate  *9**f   header?.  > 

cnoice  :  cnar.left  :  mte=w»r; 
Deem 

if  person  =  »layersCl]  then 

left  :a  real eft 
el?e 

left  :=  biuleft* 
soto*y<  15.15.' » 

writelnt  'Vou  currently  fr^w  S'«left»y    to   sP«»nO  for  the  fiscal    year'  >i 
if   lisv'a''   then 

putiu  13*16.'  <'Pr*e?s  P  ro  p»ir-:h*se,   '5  to   scrap  units  or  RETURN  to  exit> 

el^e 

putit*,  20»18»'<Press  P  ro  purchase  it  RETURN  to  exit>'  >» 
read<  cnoice  >» 
case  choice  of 

'P"  *  'p'  :  buy*  person*  1  ist.  ; ; 
'  "5 ' . '  s '  :  o^e  i  n 

i  ist:='C  * 

-IMVll.  POf'JOflj  1  ist ,' 

end ; 
:    •:  ase   1 1  st  of 

a '  . '  c '    :    ex l tC OPStat us  ) ; 
b'    :   exitt avstatus  ' 
?no 
otherwise 
beam 
neip; 
case   list  of 

'  a'  . '  c '    :    evi  t<  opsta'-us  ) ; 
'b'    :   exit< austatus ' 
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end 
■?nd 
*nd>  <Va^N»l> 

PROCEDURE  Pfl6€2<  person  :  string;  list  :  char 
•CSee  routine  Paeel.} 

choice  :  char#l<?ft,  :  int.* 


PROCEDURE  QOUfiHCEi 
be?  in 

clearscreen; 
case   list  of 

'a'    :    PutitC 28,2, 'FORCES  CIJRREHTLV   IN   IN'-'ENTORy  >; 
'b'    :    Putit<  28,2*  'FORCES   AUQILSBLE   BUT  WT   IN    INUENTORV-  '> 
■?nd; 

PUt,it<9»4*-'  SO  op  PURCH  T 

OTHL  ')i 

<»uf.iU  2*5 # 'SYSTEM*  TVPE>        INi'FNTORV  COST  COST  UTILS  LIMIT 

OPCOST     UTILS      '  •>; 
write In 
•?noi  C?dvance."> 

oesin 

if  »erson  =  PlaversCl]   t.hen 

left   :=  red  left 
■?lse 

left   :=  bluleft; 
sotovy<  1 5  #  1 5  >  s 

"iritein<  '  Vou  currently  w^ue  S'.lpf*.,'    to   spend  for  the  fiscal    year'  ># 
if    list»*'%'    r.her> 

pijt 1 1<  7  >  IS* '  <    3ress   P   *  n   ^ur^has*"    ,;;   to   ^rr^p  units   or  »**ess  i-t   for  nex 
t   pas*    >'  '' 

•?  1  •;  e 

wjtit(  16»tS»''    Pre«s  P  to  »uf*rhs»«<»  ?r*  w*»^g  Q  for  next  *aee    •'  '# 
i»Utit<2?#18*'**  wOOITTONdL   PQGRS  FQtOH   **">! 
r*ad<  choice >» 
case  choice  of 

'?','■>'    ;    oi im<  P«»rs nn»]  i«t,  >i 
■S'*'s'    :    besin 

list:  «'■:'; 
buy*  »erson » 1 i st ) 
*no; 
"0*  »'  a"  :  aduanc* 
otherwise 
besin 
help; 
c  ase  1 ; st  of 

3'  » '<:'    :  exit*  ops*  at  u«  >; 
b'  :  exit(aystatus) 
■?no 
*nd 
and 
*no;  <"p>»«*?2> 

PROCEDURE  OPSTflTUS ; 

trtccessed   from  main  n>enu.      Ol1nw«    1  i«tmfl  of    %]  i    svsteflts   currwrMy   in 
inventory.      Provides  for  system  purchase*    sr>o   s^rrappins   through   calls 
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to  the  buy  subroutine  "is  Paeel  or  Pa?«e2.  > 
delist.  :  char; i  »k  , counter  :  jnt.ei 


be^m 

list  :=  'a'j 

♦"or  k  :=  1  to  1898  do 
be?in 

counter  :=  >?; 
cl  earscreen; 

p»Jtit<28»2»'F0RCES  CURR6NTLV  IN  INUFHTORV'  >i 

put  it<  8  »4  a '  38      OP  PURCH 

TOTML    '  >i 

putit<  2,5,  'SYSTEM*  TYPE)   IN'.'EMTORV    >'0ST    COST    UTILS    LIMIT 
GPCOST  UTIL3   '>j 
writeln; 

for  i  :-   1  to  r>ijroof-?y«.tem«.  oo 
beem 

if  <  *y«<Ci]  .yr avail    <-  ye^r  J  and  (  sy«C  l3.  inventors >8)  then 
if  «y^Ci 3. delete  =  d  tn*n 
be-?  in 

counter   :=  counter  +   1 ; 
if  count.***   >  a  tr«»n 
bes>in 

'"ounter   ?  =  &; 
paee2<  person,  1  ist ) 
*ndi 
inventory  i  , counter  > 
eno; 
end; 
eaee 1 < person , 1 l * t ) 
end 
end;  <"op*t.atus> 

PROCEDURE  flUSTOTUS : 

■Cwccessed  from  ^ain  >«enu.      Cilinm*   listir«i  of   9\\    systems   auailaole  out 
not  yet   in  inventory.    Provide*   for  <u«t»<yi  p«.irrhases  ^r<3  scrap*  ms-  throusn 
calls  to  tne  buy  suoroutine  "i  a  ^aeel   or  °a<»e?.> 

0,1  ist.   :    char;i,locounter  :    mte* 


beem 

•     list   :=   'b' ; 

for  k    :=    1    to    1*89  do 
oesun 

counter   :=  #» 
cl  ear-screen; 

p<.itit<  28,2,  'FORCES  QUfilLPRLF  RUT  NOT    IN   TNUENTORY'  >; 
eMJt,lUS,4,  150  HP  PORCH 

'OTfiL  ■  :i 

put it'  2,5,  "?VSTEM< TVPE >        TNMENTORV  COST  COST  UTILS  LIMIT 

OPCOST     l/TILS      '>i 
"ir-.tein; 

for   i    :  ■   1   to  ni.if»ofsvst.'e»»>s   do 
oesm 

if  '.  sysCi  l.yravai )    '  =  year)   and  •'  ?ys til.  inventory  =  %  ?  then 
if  *.msC i ].delet»  =  d  Then 
besm 

counter   :=  counter  *■   Is 
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if  counter    >  ■*  t.h»n 
beein 

covnt-<»r   :~  dt 
paee2<  person •  1  ist  > 
end* 
1  nuentory*  i  ,  counter  ) 
end; 
end; 
^aeet (  person ,  1 1 sr. ) 
end 
end;  Cavstat  '.'•?/ 


PROCEDURE  CURRENTSTfiTUS<  purvm  :    *trin*>i 
£SufH»lies  current  player  budeet  status.  > 
yar 

it »  i  * j  * 1  eft. *a<»spent ,  i  «pent  *rds«»«nt   :    l  nt.ps»er ; sysP'.'deet    :    array   [  1 . .  26]   of  l 
nt,.?<apr ; 

d  :    char; 

PROCEDURE  COSTS; 
oesiin 
j    :=   t&; 

for   i    :*  1   to  rt»jmofsyste«*  do 
deem 

if  < sy*Ci]. opt ostttl    >  6>  and  ("sysfiD.yraoail   <a  vear)     then 
if  sysCil. delete  ■  6  then 
be-9in 

•j   :*  j   *■  1; 

sotovyt  1 1  .j  );wrir,»<  «««[  1 1 .  ni*>»,'(  '  , sysCi  ]  .sort*'  Y  ); 

eotoxv<  30*..i  );iifite<  sv**C  i  1 .  i  nventory )  s 

sotnvy(  49, ..i  '  swrit  *<  '  £'  ,«ysC  1  1  .  OPCWtttl  ) 
end 
end 
end;  Ccoste> 

be«in 

if  »erson  =  players  Ml   then 
beem 

sysoudeet   :=  reQbocJ9»et.ileft   :-  redlpft; 

a<^«,pi?nt    :=  rePSPent ; 1 spent    :=  rnspent  ;rds«»ent   :=  rrdseent 
end 
else 
Dee  in 

r-ysCudset    :  -    0 1  UOudSet  ;  1  a+>.    :  s    b  1 "  1  eft. ; 

a«SPent..    :=  oapspent ;  i  spent    :  =  ->i«p»nT  ;rdspent.    :=  brdspent 
eno; 
C learscreen; 

PUtiU30#l#'BUO8ET   INF0RHOTT0H'  ^writelrusotoxy*  !7,3>; 
write'  '  Vear:    '  ,*ear  >;sotoxy<  32*3)  5 
hit  i  te<.  '  Tota  1    Pnnua  1   Q 1 1  oManc  e :    s '  >  sv«i?ud?et  [  ye  gr  ]  > ; 
eotovy< '5*5); 

witelnX  'Amount  -pent   in  acquisition* *'  >a«»spent  >* 

?otoxy<  5,*  >; 

"•ritein'.  ' Amount  spent  on  intel  1  isence S' ,  i  spent ); 

sotovy*  5,7); 

"ir'.t.i?im  '  wmount.  seent.  cm  R  and  0 s'  ,rdspent  >; 

aotoxyt  5»8);writeln<  'iVef^tma  costs  5y  svetem  (those  in  inventory):'  ■; 
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"iriTvi?ln; 

writ*ln<  *  Svi«;r.i?tw  "'-'«»<?  •         Ouant.ity  Total   Operative  Costs'); 

c o-sts ; 

m  s=  -="»ar  +  1 ; 
TOtoxy<  L8»29)« 

"»r 1 1»  1  n<  '  Expect e<3  defend*  nurj«»<?t.  f"or  rwxt  year:    *' #reotM.id?etCin]  )# 
sotox1:*,  24,21  )» 

wr i te  1  rX  ' Tot-al  Homes  Remaining  t   *'*left.>s 
p»jtit<  21 ,22, '  <  Press  RETURN  to  return  to  iwin  >«enu>'  ') i 
?otowv  1  *  22  ;;r<»3-ot  d  > 
■?rwj;  < currents tatus> 
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